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Zntroduotiott 


Undergraduate  students  usually  develop  their  appreciation 
for  abstract  mathematics  in  Linear  or  Modern  Algebra  classes. 
Linear  Algebra  introduces  the  student  to  formal  proofs.  Then, 
Modern  Algebra  uses  formal  proofs  to  gain  insight  into  group, 
ring,  and  field  theories. 

Group  theory  is  concerned  with  both  finite  and  infinite 
group  structures.  The  new  student  to  algebra  often  does  not  have 
the  necessary  concrete  examples  at  his  fingertips  to  drive  home 
the  ideas  presented.  This  may  cause  students  a  great  deal  of 
frustration  and  affect  their  confidence.  The  program  and  data 
base  described  in  this  report  are  designed  to  alleviate  this 
frustration.  The  program  makes  available  to  the  instructor  of 
undergraduate  students  the  forty  non-isomorphic  groups  of  order 
three  to  sixteen,  and  the  capability  to  generate  any  group  up  to 
order  one  hundred. 

This  report  describes  the  mathematics  behind  the  program  and 
how  the  program  functions.  Chapter  I  discusses  the  basic 
mathematical  concepts  used  and  how  they  are  translated  into  a 
programming  language.  Chapter  II  describes  testing  results  using 
the  forty  non-isomorphic  groups  of  order  three  to  sixteen. 

Chapter  III  then  builds  upon  the  previous  chapters,  presenting 
several  examples  an  instructor  could  use  to  focus  and  clarify  the 
ideas  presented  in  the  class  and  text. 
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Chapter  I 


To  write  a  program  that  generates  the  elements  and  subgroups 
of  a  group,  a  mathematical  scheme  to  generate  the  elements  must 
be  picked.  Several  such  schemes  exist,  for  example:  power 
notation,  matrix  representation,  prime  power  decomposition, 
integers  under  addition  modulo  some  n,  and  permutations.  The 
authors  chose  the  permutation  scheme  because  of  its  general 
applicability.  We  know  from  Cayley's  theorem  that  every  group  is 
isomorphic  to  a  group  of  permutations. 

Next  the  authors  had  to  decide  what  format  the  permutations 
would  be  represented  in  -  either  standard  notation 

/l  2  3  4  5  6^ 

2  4  3  1  ey 

or  Cyclic  notation  (1  5)  (2)  (3  4)  (6) .  Since  every  permutation  in 
standard  notation  may  be  written  in  cyclic  notation  as  above,  and 
cyclic  notation  requires  less  computer  storage  space,  cyclic 
notation  was  picked. 

Cyclic  notation  by  its  very  nature  is  a  wrap-around 
notation.  This  causes  some  problems  since  a  permutation  written 
in  cyclic  notation  is  not  unique.  For  example,  (1234), 

(2  3  4  1) ,  and  (3  4  1  2)  all  represent  the  same  permutation. 

This  problem  is  compounded  when  a  permutation  requires  more  than 
one  cycle  to  represent  it.  For  example,  the  permutation 
(1234)(5678}  has  sixteen  possible  different  representations 
in  cycle  format.  Also,  an  element  of  a  cycle  may  be  repeated  in 
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following  cycles,  or  singleton  cycles  may  be  present.  All  of 
these  problems  are  easily  solved  by  writing  the  cycles  of  a 
permutation  In  a  special  way.  This  special  format  Is  called  the 
canonical  form  of  a  permutation.  It  Is  uhlque,  and  Its  existence 
stems  from  the  following  Important  facts: 

1.  Since  singleton  cycles  neither  add  nor  detract  from  a 
permutation  represented  in  cyclic  notation,  they  may  be  dropped. 

2.  Every  permutation  of  a  finite  set  Is  a  product  of 
disjoint  cycles  [1]. 

In  Knuth  [2]  an  algorithm  was  found  to  generate  the 
canonical  form  of  a  permutation.  A  collection  of  cycles  that 
represents  a  permutation  Is  first  written  as  a  product  of 
disjoint  cycles.  Next,  each  cycle  Is  ordered  by  finding  the 
smallest  element  and  putting  it  first.  Then  all  the  cycles  are 
ordered  according  to  their  first  elements,  highest  to  lowest. 

Any  singleton  cycles  are  dropped  during  this  process.  An  example 
Is  the  following,  assuming  a  product  of  disjoint  cycles: 

permutation:  (4  1  2  ;3)(8  6  7  5)(9) 
first  cycle  becomes  (1234) 
second  cycle  becomes  (5  8  6  7) 
third  cycle  Is  dropped 

permutation  In  canonical  form:  (5  8  6  7)(1  2  3  4). 

The  next  problem  to  arise  prior  to  programming  was  the 
programming  language.  The  authors  wanted  a  portable,  executable 
code,  i.e.,  portable  without  recompiling  for  different  personal 
computers  (pcs)  using  different  versions  of  MS-DOS.  We  chose  the 
"C  language.  The  particular  compiler  is  Turbo  C  [3].  The 
executable  code  works  on  various  pcs  made  by  Zenith  and  IBM. 
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These  machines  use  MS-DOS  version  2.0  through  3.3  with  different 
designs  of  hardware,  i.e.,  processors  8086,  80286,  and  80386. 

Implementation  of  the  above  decisions  into  code  could  now 
proceed.  For  speed  and  efficiency,  the  code  and  corresponding 
data  space  was  left  in  memory  until  the  program  completely 
generated  the  elements  and  subgroups  of  a  group.  At  that  time, 
the  data  was  written  to  disk  under  filenames  generated  by  the 
computer  using  information  that  the  user  supplied.  Also,  the 
user  was  given  the  option  to  print  the  data.  These  design 
decisions  drove  the  physical  limitations  of  the  program. 

An  early  concern  was  how  best  to  store  the  permutation  data. 
We  decided  that  the  user  would  only  see  nonnegative  numbers 
within  the  permutations,  i.e.,  (1234).  We  also  decided  to 
take  advantage  of  C's  extensive  character  manipulation  library. 
Therefore,  all  numerical  values  entered  or  generated  are 
converted  to  characters.  This  saves  space,  since  numerical 
values  require  two  (2)  bytes,  and  characters  require  only  one  (1) 
byte. 

The  above  design  decisions  limited  the  number  of  numerical 
values  within  a  permutation  to  256,  that  is,  the  numbers  0 
through  255.  However,  zero  (0)  could  not  be  used  since  it  is  the 
terminating  character  of  the  character  string  in  C.  Also,  the 
numerical  values  128  through  255,  when  converted  to  characters, 
have  the  first  bit  of  the  character  byte  turned  on.  This  is 
significant  because  the  first  bit  is  propagated  through  the 
second  byte  when  converting  back  to  numerical  values,  yielding 
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negative  numbers  for  printout.  Thus,  the  numerical  values  1 
through  127  are  the  only  values  that  qualify. 

Next,  the  authors  decided  on  the  nvunb^sr  of  elements  and 
subgroups  that  the  system  could  generate  and  place  in  storage. 

If  all  the  127  numbers  are  used,  the  largest  permutation  possible 
takes  190  characters  to  express.  Consider  for  example,  the 
problem  of  storing  the  elements  of  the  dihedral  groups  D(127) . 
Since  the  order  of  D(127)  is  254,  we  needed  a  storage  matrix  of 
size  48k  (254  X  190),  where  k  stands  for  kilobytes..  Considering 
other  matrices  we  also  needed  to  use  and  the  limits  on  data 
storage  for  any  module  of  a  C  program,  we  decided  to  limit  the 
number  of  elements  to  200.  The  final  size  of  the  element  matrix 
is  203  by  155,  which  uses  32k  of  storage.  The  extra  three  rows 
are  used  for  system  space. 

Each  row  of  the  subgroup  matrix  must  contain  at  least  the 
numeric  names  of  all  the  elements  possible  in  the  group.  This 
value  is  203.  The  number  of  possible  subgroups  capable  of  being 
produced  by  the  system  is  limited  by  available  space  in  the 
common  storage  area.  The  common  storage  area  allows  only  64k. 
Since  other  variables  also  need  to  be  kepted  in  common  storage, 
we  gave  the  subgroup  matrix  dimensions  of  273  by  203,  requiring 
56k. 


Except  for  some  other  minor  considerations,  the  system  was 
ready  to  be  written.  The  authors  decided  that  the  user  should 
have  a  definitive  reason  to  do  everything.  This  means  that  the 
system  would  not  only  be  menu  driven,  but  that  every  action  would 
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require  at  least  two  key  strokes;  that  is,  an  option  keystroke 
and  pressing  ENTER  to  confirm  the  option.  This  allows  the  user 
to  correct  a  mistake  before  the  system  starts  working. 


To  start  the  system,  the  user  loads  the  program  in  the 
current  drive  (drive  A  or  B) ,  and  then  types  in  AB8ALG8.  The 
first  menu  that  the  user  sees  when  running  the  system  is  the 
Permutation  Program  Main  Menu  noted  below. 

PERMUTATION  PROGRAM  MAIM  MENU 
Option  1  -  Group  Generation 
Option  2  -  Print  a  Generated  Group 
Option  3  -  Exit  Program 
Enter  Option  and  Press  Enter: 

This  menu  allows  the  user  to  choose  group  generation,  a 
print  function,  or  to  exit.  Let  us  say  the  user  chooses  to 
generate  a  group.  The  menu  then  displayed  is  the  Group  Generation 
Menu. 


GROUP  GENERATION  MENU 

Option  1  for  DIHEDRAL  GROUPS 
Option  2  for  CYCLIC  GROUPS 
Option  3  for  ABELIAN  GROUPS 
Option  4  for  UNKNOWN  GROUPS 
Option  5  for  EXIT  PROGRAM 
Enter  Option  and  press  ENTER: 


If  the  user  chooses  options  1  or  2  the  following  directions  are 
respectively  displayed. 
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DIRECTIONS 


Enter  the  number  of  the  Dihedral  Group 
after  the  'D'  and  press  ENTER 
To  exit  just  press  ENTER 
D 

DIRECTIONS: 

Enter  the  number  of  the  Cyclic  Group 
after  the  'C  and  press  ENTER 
To  exit  just  press  ENTER 
C 

Enter  the  number  of  the  group  you  wish  generated,  press 
"ENTER"  and  the  system  will  display  the  generating  elements. 

When  the  system  completes  the  group  it  will  write  it  to  the  same 
drive  that  was  used  to  start  the  system.  The  system  will  then 
give  the  user  the  option  to  print  the  group  either  to  screen  or 
printer.  If  this  option  is  chosen,  the  system  will  perform  the 
requested  task,  and  then  ask  the  user  to  press  "ENTER"  to 
continue.  This  action  will  return  the  user  to  the  directions  of 
either  option  1  or  2  respectively.  The  directions  may  be  exited 
by  pressing  "ENTER"  without  entering  a  numerical  value.  This 
action  returns  the  user  to  the  Group  Generation  Menu. 

Options  3  and  4  of  the  Group  Generation  Menu  are  also  easy 
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to  use.  Suppose  you  choose  option  4.  The  following  directions 
are  presented: 

DIRECTIONS: 

When  prompted  with  a  ' * ' ,  enter  a  permutation 

^  in  cycle  notation.  Use  '()"  as  delimiters. 

Enter  only  integer  values  (i)  in  the  range 

0  <  i  <  128.  Place  a  space  between  each  i. 

For  Example:  (1  34  5)  (23  127  2) . 

A  PERMUTATION  MAY  ONLY  BE  80  CHARACTERS  LONG. 

NOTE:  A  GROUP  MAY  HAVE  A  TOTAL  OF  128  ELEMENTS. 

Press  ENTER  when  the  permutation  is  complete. 

To  end  entry  press  ENTER  with  a  null  input. 

"To  end  entry  press  ENTER  with  a  null  input.”,  allows  you  to 
either  exit  the  option  before  entering  any  permutations,  or  start 
the  group  generation  process  after  one  or  more  permutations  are 
entered. 

Suppose  you  enter  the  following  permutation: 

(1  3  6  7)  (2  3  4)  (1  5  4)  (6  1  4  5)  (2  7  6  1  5). 

Using  this  permutation,  the  following  demonstrates  the 

systems  internal  formatting  capabilities.  Two  lines  describe  the 

entered  permutation.  The  first  line  is  in  ASCII  notation.  The 

second  line  is  the  equivalent  hexadecimal  notation.  The  above 

permutation  converts  in  the  following  way: 

(1367)  (234)  (154) 

28  31  33  36  37  29  28  32  33  34  29  28  31  35  34  29 


(6145)  (27615)0 

28  36  31  34  35  29  28  32  37  36  31  35  29  00 


The  terminating  zero  is  added  by  the  standard  C  programming 

library  input  function  "get  string"  (gets(  )).  Now  the  internal 

formatting  begins.  First  the  right  parentheses  are  dropped. 

(1367(234(154 
28  31  33  36  37  28  32  33  34  28  31  35  34 

(6145(276150 
28  36  31  34  35  28  32  37  36  31  35  00 

Second,  all  left  parentheses  are  converted  to  255. 

255  1367  255  234  255  154 

ff  31  33  36  37  ff  32  33  34  ff  31  35  34 

255  6  1  4  5  255  2  7  6  1  5  0 

ff  36  31  34  35  ff  32  37  36  31  35  00 

Next,  the  value  of  each  integer  is  converted  from  a  string 

character  to  a  numeric  value,  insuring  each  value  is  between  0 

and  128  exclusive.  It  is  then  stored  in  a  single  character  byte, 

which  has  a  new  hexadecimal  notation. 

255  1367  255  234  255  154 

ff  01  03  06  07  ff  02  03  04  ff  01  05  04 

255  6  1  4  5  255  2  7  6  1  5  0 

ff  06  01  04  05  ff  02  07  06  01  05  00 

The  above  new  permutation  representation  is  the  format  that 
is  passed  from  the  Internal  Formatter  to  the  Multiplier.  The 
Multiplier  reduces  the  permutation  to  a  product  of  disjoint 
cycles.  The  algorithm  for  the  Multiplier  is  in  Knuth  [2]. 

To  illustrate  the  steps  of  the  Multiplier  consider  the 
permutation  used  above  in  the  demonstration  of  the  Internal 
Formatter  function.  For  simplification,  we  select  a  starting 
point  that  demonstrates  all  the  checks  of  the  Multiplier.  Assume 


the  following  conditions:  a  "U"  shows  which  elements  in  the 
collection  of  cycles  have  already  been  traced  through  the  cycles 
and  recorded  in  a  new  permutation  called  the  answer  permutation. 
Note:  the  255  in  the  answer  permutation  is  a  left  parenthesis, 
not  an  element  that  was  traced  through  the  cycles  and  recorded. 

U  U  U  U 

255  1  3  6  7  255  2  3  4  255  1  5  4 

ff  01  03  06  07  ff  02  03  04  ff  01  05  04 

U  U  U 

255  6  1  4  5  255  2  7  6  1  5  0 

ff  06  01  04  05  ff  02  07  06  01  05  00 

Answer  permutation  is 

255  1  4 

ff  01  04 

Holding  a  pointer  at  the  first  four  in  the  permutation  being 
multiplied  and  going  from  left  to  right,  one  can  find  the  element 
that  the  four  is  mapped  onto.  Scanning  the  permutation,  we  find 
that  the  first  element  a^ter  the  four  is  a  left  parenthesis,  or 
255.  Thus  in  this  cycle,  the  four  maps  onto  the  first  element  in 
the  cycle,  or  two.  Starting  with  the  two,  scan  the  permutation 
for  the  next  occurrence  of  two.  It  occurs  in  the  last  cycle.  In 
the  last  cycle,  two  is  mapped  onto  seven.  Starting  with  the 
seven,  scan  the  permutation  for  the  next  occurrence  of  the  seven 
without  going  past  the  zero  at  the  end  of  the  permutation.  Since 
another  seven  does  not  occur  before  the  end  of  the  permutation, 
seven  is  where  the  four  maps  to  in  the  answer  permutation.  Mark 
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all  occurrences  of  seven  with  a  "U”.  What  we  have  now  Is: 

U  U  U  U  U 

255  1  3  6  7  255  2  3  4  255  1  5  4 

ff  01  03  06  07  ff  02  03  04  ff  01  05  04 

U  U  U  U 

255  6  1  4  5  255  2  7  6  1  5  0 

ff  06  01  04  05  ff  02  07  06  01  05  00 

and  the  answer  permutation  is  now: 

255  1  4  7 

ff  01  04  07 

Holding  a  pointer  at  the  first  seven  in  the  permutation 
being  multiplied  and  going  from  left  to  right,  one  can  find  the 
element  the  seven  is  mapped  onto.  Scanning  the  permutation,  we 
find  that  the  first  element  after  the  seven  is  a  left 
parenthesis,  or  255.  In  this  cycle,  the  seven  maps  onto  the 
first  element  in  the  cycle,  or  one.  Starting  with  the  one,  we 
scan  the  permutation  for  the  next  occurrence  of  one.  It  occurs 
in  the  third  cycle.  In  the  third  cycle,  one  is  mapped  onto  five. 
Starting  with  the  five,  scan  the  permutation  for  the  next 
occurrence  of  five.  It  occurs  in  the  fourth  cycle.  In  the 
fourth  cycle,  the  element  following  the  five  is  a  left 
parenthesis,  or  255,  therefore  the  five  maps  onto  the  first 
element  in  the  fourth  cycle,  or  six.  Starting  with  the  six,  we 
scan  the  permutation  for  the  next  occurrence  of  six.  It  occurs  in 
the  fifth  cycle.  In  the  fifth  cycle,  the  six  maps  onto  one. 
Starting  with  the  one,  scan  the  permutation  without  going  past 
the  zero  at  the  end  of  the  permutation.  Since  another  one  does 
not  occur  before  the  end  of  the  permutation,  one  is  where  the 
seven  will  map  onto  in  the  answer  permutation.  But  one  has 
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already  been  used,  therefore  a  cycle  is  closed  in  the  answer 
permutation  by  putting  a  255  (left  parenthesis)  as  a  cycle 
delimiter.  We  now  have: 

U  U  U  U  U 

255  1367  255  234  255  154 

ff  01  03  06  07  ff  02  03  04  ff  01  05  04 

U  U  U  U 

255  6  1  4  5  255  2  7  6  1  5  0 

ff  06  01  04  05  ff  02  07  06  01  05  00 

and  the  answer  permutation  is: 

255  147  255 

ff  01  04  07  ff 

Going  from  left  to  right,  we  find  the  first  element  not 
used,  that  is,  the  first  element  that  does  not  have  a  "U”  above 
it,  and  start  the  process  all  over  again.  When  all  elements  have 
been  used,  the  Multiplier  terminates  by  putting  a  terminating 
zero  (0)  in  place  of  the  trailing  255.  The  answer  permutation 
is: 

255  147  255  352  255  6  0 

ff  01  04  07  ff  03  05  02  ff  06  00 

The  input  permutation  passed  to  the  Multiplier  had  five 
cycles  and  twenty-five  characters.  After  completion  of  the 
Multiplier,  the  input  permutation  was  reduced  to  three  cycles  and 
eleven  characters. 

Notice  that  the  last  cycle  is  a  singleton  cycle.  A 
subroutine  called  Singleton  Remover  was  developed  to  remove  these 
unnecessary  and  space  wasting  singletons.  Passing  through 
Singleton  Remover,  our  permutation  is  reduced  to  two  cycles  and 
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nine  characters  as  follows: 

255  147  255  3520 

ff  01  04  07  ff  03  05  02  00 

The  above  is  our  original  permutation  represented  In  Its 

most  compact  form.  However,  it  is  not  unique.  For  instance  the 

following  two  permutations  also  represent  the  same  permutation: 

255  714  255  5230 

ff  07  01  04  ff  05  02  03  00 

255  471  255  2350 

ff  04  07  01  ff  02  03  05  00 

The  canonical  form  discussed  earlier  must  now  be  used.  A 

separate  program  was  developed  to  perform  this  action.  The  final 

form  of  our  original  permutation  is 

255  235  255  1470 

ff  02  03  05  ff  01  04  07  00 

The  final  action  in  the  internal  formatting  process  is  to 
insure  that  the  permutation,  now  in  canonical  form,  does  not 
exist  on  the  element  table.  If  it  does  exist,  an  appropriate 
message  is  returned  to  the  user.  If  it  does  not  exist,  then  the 
system  echoes  this  permutation  to  the  user  and  configures  itself 
to  accept  another  permutation.  It  is  interesting  to  note  that 
the  entire  internal  formatting  process  for  the  largest  possible 
permutation  entered  requires  less  than  two  seconds. 

The  system  allows  the  user  to  enter  up  to  seven  different 
permutations  as  group  generating  elements.  Once  the  user  decides 
on  the  number  of  permutations  to  input  and  does  so,  he  then 
presses  "ENTER”  with  a  null  input.  The  system  will  then  generate 
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the  group,  that  Is,  all  the  elements  and  subgroups  that  are 
possible  from  the  entered  permutations. 

When  the  system  completes  the  group  generation  process  It 
will  prompt  the  user  for  an  Identifying  name.  This  name  may  be 
up  to  seven  characters  long.  It  will  be  concatenated  with  E.DAT 
for  the  elements  and  S.DAT  for  the  subgroups.  The  files  are 
created  and  the  data  recorded. 

with  one  small  exception,  the  system  then  follows  the  same 
procedure  that  was  explained  for  options  1  and  2  of  the  Group 
Generation  Menu.  When  the  system  requests  you  to  press  '•ENTER” 
to  continue,  the  system  returns  to  the  Group  Generation  Menu. 

Below  is  the  group  generated  by 

(1  3  6  7)  (2  3  4)  (1  5  4)  (6  1  4  5)  (2  7  6  1  5) 

The  elements  are  the  following: 
eO  is  the  identity  element 
el  =(235)  (147) 
e2  =(253)  (174) 

The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  =  (  eO  el  e2  ) 

The  above  was  a  very  quick  walk-through  of  the  group 
generation  options  of  the  system.  We  will  now  investigate  the 
print  options. 

The  user  starts  the  system  and  chooses  the  Print  Menu 
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option.  The  system  displays  the  Print  Menu  to  the  user. 

PRINT  MENU 

Option  1  for  DIHEDRAL  GROUPS 
Option  2  for  CYCLIC  GROUPS 
Option  3  for  ABELIAN  GROUPS 
Option  4  for  UNKNOWN  GROUPS 
Option  5  EXIT  PROGRAM 
Enter  Option  and  press  ENTER: 

If  the  user  chooses  either  option  1  or  2  the  following 
instructions  are  displayed  respectively: 

DIRECTIONS t 

Enter  the  number  of  the  Dihedral  Group 
after  the  'D'  and  press  ENTER 
To  exit  just  press  ENTER 
D 

directions: 

Enter  the  number  of  the  Cyclic  Group 
after  the  'C  and  press  ENTER 
To  exit  just  press  ENTER 
C 

The  user  must  enter  the  number  of  a  group  for  which  data 
exists.  This  may  be  one  of  twenty  groups  that  are  dihedral  or 
cyclic  of  the  forty  non- isomorphic  groups  in  the  data  base.  It 
may  also  be  the  number  of  a  dihedral  or  cyclic  group  that  the 
user  generated  under  the  Group  Generation  option  of  the  Main 
Menu. 
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If  the  data  does  not  exist  the  system  will  immediately 
terminate  and  put  the  user  at  the  DOS  prompt.  Once  the  system 
reads  the  data  off  the  disk  the  following  self-explanatory 
instructions  are  displayed: 

SELECT  OUTPUT  METHOD 
p  for  PRINTER 
S  for  SCREEN 

Enter  choice  and  press  ENTER: 


Suppose  the  user  was  in  option  1  and  wished  to  print  to  the 
screen  Dihedral  Group  3,  the  following  is  what  the  user  would 
see: 

The  elements  are  the  following: 

eO  is  the  identity  element 

el  =  (  1  2  3  ) 

e2  =  (  2  3  ) 

e3  =  (  1  3  2  ) 

e4  =  (  1  3  ) 

e5  =  (  1  2  ) 

The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  =  (  eO  e2  ) 

52  =  (  eO  e4  ) 

53  =  (  eO  e5  ) 

54  s  (  eO  el  e3  ) 

55  »=  (  eO  el  e2  e3  e4  e5  ) 

Press  ENTER  to  continue: 


Once  the  data  is  written  either  to  the  screen  or  the 
printer,  the  system  will  request  the  user  to  press  ENTER  to 
continue.  This  action  will  display  the  directions  for  option  1, 
if  the  group  last  printed  was  a  dihedral  group,  or  2,  if  the 
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group  last  printed  was  a  cyclic  group.  From  here  the  user  may 
print  another  dihedral  or  cyclic  group  or  exit  to  the  Print  Menu. 

Suppose  our  user  exits  to  the  Print  Menu  and  then  chooses 
option  3  (abelian  option)  or  4  (unknown  option) .  The  following 
directions  will  be  presented  respectively: 

DIRECTIONS t 

Enter  the  first  seven  characters  of 
the  Abelian  group  file  name  after 
the  and  press  ENTER. 

To  exit  just  press  ENTER. 

* 

directions: 

Enter  the  first  seven  characters  of 
the  unknown  group  file  name  after 
the  and  press  ENTER. 

To  exit  just  pres  ENTER. 

* 

At  this  juncture  the  user  must  know  the  filename.  Under 
option  4,  unknown  group,  it  may  be  any  name  that  exists,  either 
generated  by  the  user  using  the  Group  Generation  option  of  the 
Main  Menu  or  one  of  the  forty  groups  that  are  in  the  system's 
data  base.  For  option  3,  abelian  group,  only  the  filename  of  an 
abelian  group  that  exists  should  be  entered.  It  may  be  either 

user  generated,  or  one  of  the  forty  groups  in  the  system  data 

base  that  is  abelian  and  non-cyclic.  Up  to  seven  characters  may 
be  typed  in.  The  E.DAT  or  S.DAT  that  is  attached  to  all  data 
files  when  they  are  created  is  not  entered,  they  are  generated  by 
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the  computer.  From  this  point  the  same  directions  appear  as  in 
option  1  or  2  with  one  small  difference.  When  the  user  is  asked 
to  press  “ENTER”  to  continue,  the  system  returns  to  the  Print 
Menu. 

For  a  demonstration,  suppose  the  user  was  in  the  Unknown 

Group  Option  and  wished  to  print  the  group  structure  known  as  the 

Klein  4-group.  The  filenames  for  this  group  are  KIiEIN4E.DAT  and 

KLEIN4S.DAT.  The  user  would  enter  klein4  in  lowercase  letters. 

By  following  the  simple  directions,  the  following  would  be 

printed  to  screen: 

The  elements  are  the  following: 

eO  is  the  identity  element 
el  «  (  3  4  )  (12) 

e2  =  (  2  3  )  (14) 

e3  =  (  2  4  )  (13) 

The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  »  (  eO  el  ) 

52  =  (  eO  e2  ) 

53  «  (  eO  e3  ) 

54  =  (  eO  el  e2  e3  ) 

Press  ENTER  to  continue: 

When  the  user  presses  “ENTER”  to  continue,  the  system 
returns  him  to  option  4  (unknown  option) . 

This  chapter  has  highlighted  the  major  functions  and 
capabilities  of  the  abstract  algebra  programming  system  ABSALGS. 
We  have  included  two  appendices  to  assist  those  readers  wishing 
to  delve  deeper  into  the  programming  itself.  Appendix  B  simply 
lists  the  names  of  all  the  programs  within  the  system  with  a 
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Chapter  II 


We  tested  the  algebra  progranmlng  system  ABSALGS  by 
developing  a  data  base  of  the  forty  non- isomorphic  groups  of 
order  three  to  sixteen,  hereafter  referred  to  as  the  System  Data 
Base.  In  what  follows,  each  of  the  four  generating  options  are 
addressed  in  a  similar  fashion.  First,  the  type  of  group  or 
groups  are  formally  defined.  Second,  if  possible,  a  practical 
interpretation  of  the  definition  is  given  with  an  example. 

Third,  a  table  or  explanation  of  generating  times  is  presented. 
Finally,  we  offer  a  table  or  explanation  of  the  number  of 
subgroups  of  each  group.  The  reader  should  also  note  that 
appendix  A  contains  all  the  data  in  the  System  Data  Base,  ordered 
on  the  size  of  the  group  within  each  type  of  group. 

To  test  the  system  fully,  every  option  of  the  group 
generation  process  needs  to  be  exercised.  Scanning  the  group 
generation  menu  there  are  four  selections  to  test,  that  is, 
dihedral,  cyclic,  abelian,  and  unknown. 

The  Dihedral  Option; 

The  dihedral  groups  are  defined  formally  in  the  following 
manner:  For  an  integer  n,  an  element  of  the  natural  numbers, 
such  that  two  is  less  than  or  equal  to  n,  let  D(n)  equal  the  set 
G  of  elements  X  and  Y,  such  that,  X*‘n  equals  1,  Y"‘2  equals  1, 
and  (XY)‘'2  =  1,  that  is, 

D(n)  =  G{  X,  Y/  x*'n  =  1,  Y"*2  =  1,  (XY)  “2  =  1). 
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Although  this  Is  a  good  abstract  definition  which,  with  enough 
multiplications,  will  generate  a  group  table,  a  more  practical 
definition  of  dihedral  groups  is  possible.  Indeed,  the  nth 
dihedral  group  D(n)  may  be  thought  of  as  the  group  of  symmetries 
of  the  regular  n-gon.  For  example,  the  dihedral  group  D(4)  may 
be  interpreted  as  the  symmetries  of  the  square.  Here  the 
symmetries  refers  to  those  rotations,  mirror  images  in 
perpendicular  bisectors  of  sides,  and  diagonal  flips  that  bring 
the  figure  back  onto  itself. 

When  generating  the  permutations  for  D(n) ,  it  is  convenient 
to  think  of  a  n-gon  with  a  natural  number  associated  with  each 
corner,  that  is,  the  point  of  inters-:ction  of  two  sides.  The 
figure  below  will  be  an  aid  in  the  comprehension  of  permutation 
generation  for  D(4) . 


1  2 


4  3 


Assume  that  the  square  in  the  above  figure  is  in  its 
identity  position;  then  one  clockwise  rotation  would  produce 
(1234)  as  a  permutation  in  cycle  notation.  That  is  to  say, 
one  is  mapped  onto  two's  position,  two  is  mapped  onto  three's 
position,  three  is  mapped  onto  four's  position,  and  four  is 
mapped  onto  one's  position.  One  more  clockwise  rotation  would 
produce  (1  3) (2  4}  as  a  permutation.  The  next  two  clockwise 
rotations  would  produce  (1432)  and  (1) (2) (3) (4)  respectively. 
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Again,  if  it  is  assumed  that  the  above  figure  is  in  its  identity 
position,  then  one  mirror  image  in  the  perpendicular  bisector  of 
sides  1-2  and  3-4  would  produce  the  permutation  (1  2) (3  4) .  One 
more  mirror  image  in  the  perpendicular  bisector  of  the  sides  1-2 
and  3-4  would  return  the  square  to  the  identity  position. 
Similarly,  a  diagonal  flip  using  the  diagonal  that  joins  2  to  4 
would  produce  the  permutation  (1  3) .  One  more  diagonal  flip 
using  the  same  diagonal  would  result  in  the  square  returning  to 
its  identity  position.  Continuing  in  this  manner,  a  total  of 
eight  permutations  may  be  generated. 

This  method  illustrates  the  way  a  human  might  attempt  to 
find  all  the  elements  of  a  dihedral  group.  For  a  program  on  a 
computer  to  generate  the  elements  a  more  general  method  is 
needed.  The  following  generates  the  dihedral  group  D(n)  on  a 
computer  using  cyclic  notation: 

(12345.  .  .  n  )  and 

(  1  n  )  (  2  (n  -  1)  )  (  3  (n  -  2)  )  .  .  .  (  m  (m  +  1)  ) 

for  n  even,  and  by  the  permutations 

(12345.  .  .n)  and 

(  2  n  )  (  3  (n  -  1)  )  (  4  (n  -  2)  )  .  .  .  (  m  (m  +  1)  ) 

for  n  odd. 

The  dihedral  section  of  the  program  will  only  work  for  n 

greater  than  two.  It  is  Interesting  to  note  that  a  dihedral 

group  has  twice  as  many  elements  as  its  associated  value  of  n, 
for  instance  D(8)  has  sixteen  elements.  Thus  it  is  easy  to  see 
that  the  dihedral  groups  in  System  Data  Base  are  D(3),  D(4), 
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D(5) ,  D(6) ,  D(7) ,  and  D(8) .  Below  is  a  chart  indicating  the 
amount  of  computer  time  in  seconds  it  took  to  generate  each 
dihedral  group. 


DIHEDRAL  GROUP 

TIME 

D(3) 

1.76 

D(4) 

3.92 

D(5) 

5.99 

D{6) 

22.92 

D(7) 

20.27 

D(8) 

63.04 

The  following  is  a  table  of  the  number  of  subgroups  by  order 
for  each  of  the  dihedral  groups.  It  does  not  include  the  group 
Itself. 


DIHEDRAL 

SUBGROUP 

GROUP 

ORDER 

1 

2 

3 

4 

5  6 

7 

8 

D(3) 

1 

3 

1 

D(4) 

1 

5 

3 

D(5) 

1 

5 

1 

D(6) 

1 

7 

1 

3 

3 

D(7) 

1 

7 

1 

D(8) 

1 

9 

5 

3 

TOTAL 

5 

8 

7 

15 

9 

18 


This  concludes  our  discussion  of  the  dihedral  groups.  We 
now  turn  our  attention  to  the  cyclic  groups. 
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The  Cyclic  Option: 

The  cyclic  groups  are  formally  defined  by:  For  an  integer  n, 
an  element  of  the  natural  numbers,  such  that  2  is  less  than  or 
equal  to  n,  let  C(n)  equal  the  set  G  of  elements  X,  such  that 
X'"n  equals  1,  that  is, 

C(n)  =  G{X/  X*“n  =  1). 

Again  this  is  a  good  abstract  definition.  However,  there  is 
a  more  practical  interpretation.  You  may  already  have  noticed 
that  the  above  definition  is  the  first  part  of  the  definition  for 
dihedral  groups.  We  may  think  of  a  cyclic  group  as  nothing  more 
than  the  rotations  of  the  regular  n-gon.  For  example,  C(4)  has 
elements  (1  2  3  4),  (1  3) (2  4),  (1  4  3  2),  and  (1)  (2)  (3) (4) . 

These  are  the  first  four  elements  of  D(4) . 

The  above  method  represents  one  way  a  person  might  generate 
a  cyclic  group.  However,  for  a  computer,  all  we  need  is  one 
generating  element  in  permutation  form.  The  cyclic  group  C(n) 
may  be  generated  on  a  computer  with  the  permutation 

(1234  .  .  .  .n). 

As  you  may  have  guessed,  a  cyclic  group  has  as  many  elements 
as  its  associated  n.  For  example,  C(5)  has  five  elements.  For 
the  purpose  of  the  program,  n  must  be  greater  than  two  to  use  the 
cyclic  option  of  the  menu.  Fourteen  groups  in  the  System  Data 
Base  are  cyclic  groups.  C(16)  took  approximately  five  seconds  to 
produce,  and  is  the  largest  cyclic  group  generated  for  our  test. 
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C(3)  through  C(15)  each  required  less  than  five  seconds  to 
produce . 

The  cyclic  groups  have  one  subgroup  for  each  integer  value 
that  divides  the  order  of  the  group.  This  means  that  C(16)  has 
five  subgroups:  the  identity,  the  group  itself,  the  subgroup  of 
order  two,  the  subgroup  of  order  four,  and  the  subgroup  of  order 
eight.  Similarly,  the  subgroups  of  the  other  cyclic  groups  from 
order  three  to  sixteen  are  easily  produced. 

We  next  turn  our  attention  to  the  abelian  groups,  which  are 
closely  related  to  the  cyclic  groups. 

The  Abelian  Option: 

By  the  Fundamental  Theorem  of  Finitely  Generated  Abelian 
Groups,  every  finitely  generated  abelian  group  G  is  isomorphic  to 
a  direct  product  of  cyclic  groups  of  the  form 

1.  Z[p(l)“r(l)]  X  Z[p(2)“r(2)]  X  ...  X  Z  [p(n)  * 'r  (n)  ]  x  Z 
X. . .X  Z 

where  the  p(i)  are  primes,  not  necessarily  distinct,  and  also  of 
the  form 

2.  Z[m(l}]  X  Z[m(2)]  X  ...  X  Z[m(n)]  x  Z  x  ...  x  Z 
where  m(i)  divides  m(i+l)  [1]. 

There  are  eight  abelian  groups  in  the  above  formats  that  are 
pazrt  of  the  System  Data  Base.  The  following  table  gives  the 
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traditional  name,  the  name  given  as  a  filename  in  the  System  Data 
Base,  and  the  time  in  seconds  it  took  to  generate  each  group. 


TRADITIONAL 

FILENAME 

TIME 

Z(2)XZ(2)XZ(2) 

a2a2a2 

12.74 

Z(2}XZ(4) 

a4xa2 

3.10 

Z(3)XZ(3) 

a3xa3 

2.97 

Z(2)XZ(6) 

a6xa2 

14.98 

Z(2)XZ(8) 

a2x8 

31.45 

Z(4)XZ(4) 

a4x4 

34.85 

Z(2)XZ(2)XZ(4) 

a2x2x4 

150.28 

Z(2)XZ(2)XZ(2)XZ(2) 

a22x22 

609.58 

NOTE:  For  the  rest  of  this  paper  the  filenames  will  be  used  to 

reference  the  different  groups. 
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The  following  table  gives  us  an  idea  how  the  subgroups  break 
down  for  the  eight  abelian  groups.  It  does  not  include  the  group 
itself. 

GROUP  NAME  SUBGROUP  ORDER  TOTAL 


1 

2 

3 

4 

6 

8 

a2a2a2 

1 

7 

7 

15 

a4xa2 

1 

3 

3 

7 

a3xa3 

1 

4 

5 

a6xa2 

1 

3 

1 

1 

3 

9 

a2x8 

1 

3 

3 

3 

10 

a4x4 

1 

3 

7 

3 

14 

a2x2x4 

1 

7 

11 

7 

26 

a22x22 

1 

15 

35 

15 

66 

The  Unknown  Option: 

For  this  option,  the  filenames  used  help  identify  the  group 
structure.  In  some  cases,  the  group  structure  is  quite  well- 
known,  even  to  the  casual  algebra  student.  One  easy  example  being 
the  Klein  4-group.  In  other  cases,  the  group  structure  and 
generating  elements  are  harder  to  identify.  The  groups  will  be 
listed  in  group  order  from  lowest  to  highest.  Where  there  are 
several  groups  of  the  same  order,  the  authors  randomly  chose 
their  listing. 
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Besides  C(4),  the  Klein  4-group  is  the  only  other  order  four 
group  known  to  exist.  It  is  isomorphic  to  the  dihedral  group 
D(2) ,  but  cannot  be  formed  in  the  same  manner  as  other  dihedral 
groups . 

The  Quaternion  group  of  order  eight  forms  a  skew  field  under 
addition  and  multiplication.  The  group  (q4)  is  defined  by: 
q4  =  {  X,  Y  /  X“4  =  1,  =  X"‘2,  YX  =  X‘*3Y  }. 

The  subgroup  of  the  symmetric  group  on  four  letters  is 
called  the  alternating  group  (alt4)  on  four  letters.  The  number 
of  elements  is  four  factorial  divided  by  two. 

The  group  s3xz2  is  the  group  formed  by  a  direct  product  of 
the  symmetric  group  on  three  letters,  which  is  isomorphic  to  the 
dihedral  group  D(3) ,  and  Z(2),  the  integers  under  addition  modulo 
two. 

The  semidihedral  group  sd2z8z2  which  is  isomorphic  to  one 
semidirect  product  of  Z(8)  X  Z(2),  is  defined  in  the  following 
manner: 

sd2z8z2  =  G{  X,  Y  /  X*'8  =  1,  Y“2  =  1,  and  YX  =  (X“3)Y  ). 

The  group  sdlz8z2  is  isomorphic  to  a  different  semidirect 
product  of  Z(8)  X  Z(2).  It  is  defined  in  the  following  manner: 
Sdlz8z2  =  G(  X,  Y  /  X‘'8  =  1,  Y“2  =  1,  and  YX  =  (X“5)Y  ). 

The  generalized  quaternions  of  order  sixteen  (q8)  are 
defined  by; 

q8  -=  G{  X,  Y/  X**8  =  1,  Y"2  =  X“4,  YX  =  (X‘'7)Y  ). 
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The  direct  product  of  the  quaternions  of  order  eight  and  the 
integers  under  addition  modulo  two,  that  is,  Q(4)  X  Z(2),  is  a 
group  of  order  sixteen.  It  is  named  q4xz2. 

The  direct  product  of  the  dihedral  group  D(4}  and  the 
integers  under  addition  modulo  two,  that  is,  D(4}  X  Z(2),  is 
named  d4xz2. 

The  group  q4xz4  is  isomorphic  to  a  subgroup  of  the  direct 
product  of  the  quaternions  of  order  eight,  and  the  integers  under 
addition  modulo  four,  that  is,  Q(4)  X  Z(4).  It  is  defined  by: 
q4xz4  =  {  X,  Y/  X*"4  =  1,  Y''4  =  1,  YX  =  (X""3)Y  }. 

The  group  wpd4z4  is  isomorphic  to  a  subgroup  of  the  wreath 

product  of  the  dihedral  group  D(4)  and  the  integers  under 

addition  modulo  four.  It  is  defined  in  the  following  manner: 

wpd4z4  =  {  X,  Y,  Z/  X'*4  =  1,  Y*‘2  =  1,  Z'‘2  =  1, 

ZYZ(X“2)Y  =  1,  YXYX“-1  =  1,  and  ZXZX‘"-1  =  1}. 

The  group  dpd4d4  is  isomorphic  to  a  subgroup  of  the  direct 
product  of  the  dihedral  group  D(4)  and  D(4) .  It  is  defined  in 
the  following  manner: 

dpd4d4  =  {  X,  Y/  X*'4  =  1,  Y“4  =  1,  (XY)  “2  =  1, 

((X**-1)Y)  *'2  =  :l  ). 
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The  table  below  gives  the  run  times  in  seconds  for  each  of 
the  unknown  groups. 


GROUP  NAME 

TIME 

klein4 

.81 

q4 

4.04 

alt4 

9.34 

s3xz2 

26.78 

Sd2z8z2 

122.23 

Sdlz8z2 

69.59 

q8 

88.13 

q4xz2 

188.52 

d4xz2 

187.59 

q4xz4 

111.98 

wpd4z4 

525.62 

dpd4d4 

163.63 
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The  following  table  gives  the  subgroup  structure  of  the 


unknown  groups. 

It 

does 

not 

include 

the 

group  itself 

GROUP  NAME 

SUBGROUP 

ORDER 

TOTAL 

1 

2 

3 

4 

6 

8 

klein4 

1 

3 

4 

q4 

1 

1 

3 

5 

alt4 

1 

3 

4 

1 

9 

S3XZ2 

1 

7 

1 

3 

3 

15 

Sd2z8z2 

1 

5 

5 

3 

14 

sdlz8z2 

1 

3 

3 

10 

q8 

X 

1 

5 

3 

10 

q4xz2 

1 

3 

7 

7 

18 

d4xzi 

1 

11 

15 

7 

34 

q4xz4 

1 

3 

7 

3 

14 

wpd4z4 

1 

7 

7 

7 

22 

dpd4d4 

1 

7 

9 

3 

20 

Generating  the  last  twelve  groups  in  our  System  Data  Base  in 
the  unknown  option  completed  the  formal  testing  of  the  system. 
Other  tests  were  performed,  such  as:  generating  the  dihedral 
groups  up  to  order  94;  however,  this  is  beyond  the  scope  of  this 
paper.  If  the  reader  wishes  to  investigate  these  findings, 
please  refer  to  the  Air  Force  Technical  Report  "A  Number- 
Theoretic  Approach  to  Subgroups  of  Dihedral  Groups”  by  the  same 
authors  [ 4 ] . 


Chapter  III 


Examples  are  an  indispensable  part  of  a  mathematician's 
research.  Only  after  a  thorough  examination  of  numerous 
examples,  should  a  mathematician  attempt  to  formulate  their 
common  properties  into  a  theorem.  Then  and  only  then  does  the 
mathematician  undertake  to  prove  the  theorem. 

An  instructor  teaching  group  theory  is  always  searching  for 
examples  to  help  clarify  and  justify  the  explanation  of  theorems 
and  definitions,  and  the  student,  at  any  level,  always  needs 
examples  to  elucidate  the  subject  at  hand. 

Another  role  for  an  example  is  its  use  as  a  counterexample. 
Many  apparent  theorems  or  conjectures  have  been  proved  wrong  by  a 
simple  counterexample.  For  instance,  a  well-known  theorem  states 
that  every  subgroup  of  an  abelian  group  is  a  normal  subgroup. 
However,  its  converse,  if  every  subgroup  of  a  group  is  normal, 
then  the  group  is  abelian,  is  not  true.  The  quaternion  group  of 
order  eight  has  all  subgroups  normal  but  is  definitely  not 
abelian.  Thus,  by  a  simple  counterexample  a  possible  theorem  is 
disproved. 

From  the  above,  it  is  easy  to  see  why  examples  play  such  an 
important  role  in  the  study  of  group  theory.  To  this  end, 
Weinstein  [5]  has  written  a  book  devoted  entirely  to  examples  in 
group  theory.  His  book  is  quite  comprehensive,  providing 
examples  to  Illustrate  various  group-theoretical  concepts,  and 
presenting  some  very  Important  counterexamples. 
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In  this  chapter,  the  authors  develop  several  examples  from 
the  data  generated  by  the  abstract  algebra  programming  system 
presented  in  chapter  two.  Since,  these  examples  are  just  the  tip 
of  the  Iceberg,  instructors  should  u: j  the  system  to  develop  more 
in-depth  ideas  and  examples. 

Isomorphism  is  a  fundamental,  but  crucial  idea  of  abstract 
algebra.  The  beginning  student  generally  finds  the  concept  of 
isomorphism  difficult  at  best.  To  strengthen  their  understanding 
of  isomorphism,  an  instructor  may  wish  to  have  students  develop 
both  an  example  and  a  counterexample.  An  exercise  given  to  a 
student  using  this  program  might  be  to  generate  Z(5)xZ(2)  and 
determine  if  an  isomorphic  mapping  is  possible  with  C(10) .  Also, 
using  the  data  that  already  exists,  a  student  could  demonstrate 
why  qs  and  sdlz8z2  or  q4xz4  and  sd2z8z2  are  not  isomorphic. 

Another  concept  that  could  possibly  be  reinforced  by  this 
system  is  coset  theory.  As  an  exercise,  a  student  could  be  asked 
to  pick  any  of  the  order  sixteen  groups,  determine  a  right  coset, 
and  then  prove  that  it  is  also  a  left  coset.  This  exercise 
requires  a  host  of  activities  that  this  system  can  perform,  such 
as  developing  all  the  elements  and  subgroups  of  a  group. 

The  idea  of  cosets  leads  naturally  to  the  notion  of  a  factor 
group.  Fraleigh  [1]  defines  a  factor  group  in  the  following  way: 

If  N  is  a  normal  subgroup  of  a  group  G,  the  group  cosets  of 
N  under  the  induced  operation  is  the  factor  group  of  G  modulo  N, 
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and  is  denoted  G/N.  The  cosets  are  the  residue  classes  of  G 
modulo  N. 

An  easy  exercise  to  assign  a  student  would  be  to  find  the 
normal  subgroups  of  a  group.  A  team  project  might  be  to  develop 
the  programs  to  print  out  the  normal  subgroups  of  the  groups  in 
the  System  Data  Base  (this  requires  only  three  short  modules  of 
fifty  to  sixty  lines  each  [6])  . 

A  fourth  example  for  the  use  of  this  program  in  the 
classroom  are  the  Sylow  Theorems.  One  must  remember  that  the 
Sylow  Theorems  deal  with  finite  groups.  The  first  Sylow  Theorem 
states  that  for  any  prime  dividing  the  order  of  the  group  there 
exist  a  subgroup  of  that  order.  Since  we  have  a  data  base  of 
forty  non-isomorphic  groups  it  would  be  an  easy  task  for  the 
student  to  find  the  subgroups  that  have  a  prime  order.  Then 
using  the  third  Sylow  Theorem,  show  how  many  Sylow  p-subgroups 
exist  of  that  order. 

Finally,  given  this  programming  system,  a  student  might  well 
venture  out  into  the  realms  of  finite  group  theory  and  discover  a 
host  of  interesting  topics.  Hopefully  he  will  ask  questions  of 
his  instructor  and  start  down  the  long  road  of  self-study  that 
leads  to  mathematical  maturity. 
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APPENDIX  A 
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DIHEDRAL  GROUP  D(3) 


The  ELEMENTS  are  the  following; 
eO  is  the  Identity  element 


e  1 

= 

( 

1 

2 

3 

) 

e2 

( 

2 

3 

) 

e3 

= 

( 

1 

3 

2 

) 

e4 

a 

( 

1 

3 

) 

e5 

= 

( 

1 

2 

) 

The  subgroups  are  the  following; 

50  is  the  null  subgroup 

51  =  {  eO  e2  } 

52  =  {  eO  e4  } 

53  =  {  eO  e5  ) 

54  =  {  eO  el  e3  } 

55  *  {  eO  el  e2  e3  e4  eS  } 
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DIHEDRAL  GROUP  D(4) 


The  ELEMENTS  are  the  following: 
eO  i3  the  identity  element 


e  1 

S 

( 

1 

2 

3  4  ) 

e2 

S 

( 

2 

3 

)  (  1 

4 

) 

e3 

= 

( 

2 

4 

)  (  1 

3 

) 

e4 

= 

( 

r- 

4 

3  2  ) 

e5 

= 

( 

1 

3 

) 

e6 

s 

{ 

2 

4 

) 

e7 

s 

( 

3 

4 

)  (  1 

2 

) 

The  subgroups  are  the  following: 


SO 

Is 

the 

nul  1 

subgroup 

SI 

= 

{ 

eO 

e2 

} 

S2 

= 

{ 

eO 

e3 

1 

S3 

= 

( 

eO 

eS 

} 

S4 

s 

{ 

eO 

e6 

} 

S5 

X 

{ 

eO 

e7 

} 

S6 

S 

{ 

eO 

e  1 

e3 

e4 

} 

S7 

X 

< 

eO 

e2 

e3 

e7 

} 

sa 

s 

{ 

eO 

e3 

eS 

e6 

} 

S9 

X 

{ 

eO 

e  1 

e2 

e3 

e4  eS 
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DIHEDRAL  GROUP  D(5) 


The  ELEMENTS  are  the  following: 

eO  is  the  identity  element 

el  =  (  1  2  3  4  5  ) 

e2  *  (  3  4  )  (  2  5  ) 

e3  =  (  1  3  5  2  4  ) 

e4  =  (14253) 

e5  =  (  1  5  4  3  2  ) 

e6  =  (  2  4  )  (  1  5  ) 

e7  =  (  3  5  )  (  12) 

eS  *  (  2  3  )  (  14) 

e9  =  {  4  5  ) {  13) 


The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  *  {  eO  e2  ) 

52  =  {  eO  e6  ) 

53  -  (  eO  e7  } 

54  =  (  eO  e8  ) 

55  =  (  eO  e9  } 

56  =  (  eO  el  e3  e4  e5  } 

57  =  (  eO  el  e2  e3  e4  e5  e6  e7  e8  e9  ) 
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DIHEDRAL  GROUP  D(6) 


The  ELEMENTS  are  the  following: 

eO  is  the  identity  element 
el  =  (  1  2  3  4  5  6  ) 

e2=  (34)(25)(  16) 
e3=  (24e)(  135) 
e4  =  (  3.  6  )  (  2  5  )  (  14) 
e5»  (264)(153) 
e6  =>  (  1  6  5  4  3  2  ) 
e7  *  (  2  4  ) (  1  5  ) 
e8  =  (  3  5  ) (  2  6  ) 
e9=  (56)(23)(  14) 
el0=(45)(36)(12) 
ell  =  (  4  6  ) (  13) 


The  subgroups  are  the  following: 


SO 

i3 

the 

null  subgroup 

SI 

= 

{ 

eO 

e2  } 

S2 

s 

{ 

eO 

e4  ) 

S3 

X 

{ 

eO 

e7  ) 

S4 

X 

( 

eO 

e8  } 

S5 

X 

( 

eO 

e9  } 

S6 

X 

{ 

eO 

elO  ) 

S7 

= 

{ 

eO 

ell  } 

S8 

X 

{ 

eO 

e3  e5  ) 

S9 

X 

{ 

eO 

e2  e4  ell  } 

510  =  {  eO  e4  e7  elO  ) 

511  =  {  eO  e4  e8  e9  } 

512  =  (  eO  el  e3  e4  e5  e6  } 

513  =  (  eO  e2  e3  e5  e9  elO  } 

514  =  {  eO  e3  e5  e7  e8  ell  } 

515  s  {  eO  el  e2  e3  e4  e5  e6  e7  eS  e9  elO  ell  > 
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DIHEDRAL  GROUP  D(7) 


The  ELEMENTS  are  the  following; 

eO  Is  the  identity  element 
el=  (  1234567) 
e2=  (45)(36)(27) 
e3=  (  1357246) 
e4=  (  1473625) 
e5=  (1526374) 
e6=  (1642753) 
e7=  (1765432) 
e8=  (35)(26)(  17) 
e9=  (46)(37)(12) 
elO=(34)(2S)(16) 
ell=(56)(47)(13) 
el2=  (67)(24)(  15) 
el3=  (57)(23)(  14) 


The  subgroups  are  the  following: 


50  is  the  null  subgroup 

51  =  (  eO  e2  ) 

52  =  (  eO  ea  ) 

53  =  {  eO  e9  > 

54  =  (  eO  elO  } 

55  =  {  eO  ell  } 

56  =  (  eO  el2  } 

57  =  (  eO  el3  ) 

58  =  (  eO  el  e3  e4  e5  e6  e7  > 

59  =  (  eO  el  e2  e3  e4  eS  e6  e7  e8  e9  elO  ell  el2  el3  } 


41 


DIHEDRAL  GROUP  D(8) 

The  ELEMENTS  are  the  following: 
eO  Is  the  identity  element 


el  a 

( 

1  2 

3  4 

5  6 

7 

8  ) 

e2  a 

( 

4  5 

)  ( 

3  6 

)  ( 

2  7 

)  ( 

1  a  ) 

e3  a 

( 

2  4 

6  8 

)  ( 

1 

3 

5  7 

) 

e4  a 

( 

1.  4 

7  2 

5  8 

3 

6  ) 

e5  a 

( 

4  8 

)  ( 

3  7 

)  ( 

2  6 

)  ( 

1  5  ) 

66  a 

( 

1  6 

3  8 

5  2 

7 

4  } 

e7  a 

{ 

2  8 

6  4 

)  ( 

1 

7 

5  3 

) 

•  8  a 

( 

1  8 

7  6 

5  4 

3 

2  ) 

e9  a 

( 

3  5 

)  ( 

2  6 

)  ( 

1  7 

) 

e  10  a 

(  4  6 

)  ( 

3  7 

) 

( 

2  8 

) 

ell  a 

(  7  8 

)  ( 

3  4 

) 

( 

2  5 

) 

( 

1  6 

) 

el2  a 

(  5  6 

)  ( 

4  7 

) 

( 

3  8 

) 

( 

1  2 

) 

el3  a 

(  6  8 

)  ( 

2  4 

) 

( 

1  5 

) 

e  14  a 

(  5  7 

)  ( 

4  a 

) 

( 

1  3 

) 

el5  a 

(  6  7 

)  ( 

5  8 

) 

( 

2  3 

) 

( 

1  4 

) 

The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  «  <  eO  e2  } 

52  =  (  eO  eS  } 

53  -  (  eO  e9  } 

54  s  {  eO  elO  ) 

55  »  {  eO  ell  ) 

56  =  (  eO  el2  } 

57  =  {  eO  el3  ) 

58  =  (  eO  el4  } 

59  »  {  eO  elS  > 


SIO 

S 

{ 

eO 

e3 

e5  e7  ) 

Sll 

= 

{ 

eO 

e2 

eS  e  15  } 

S12 

s 

{ 

eO 

eS 

e9  el4  } 

S13 

s 

{ 

eO 

e5 

elO  el3  } 

S14 

X 

{ 

eO 

e5 

ell  el2  } 

S15 

= 

{ 

eO 

e  1 

s3  e4  e5  e6  e7  e8  } 

S16 

X 

{ 

eO 

e2 

e3  e5  e7  ell  el2  el5 

517  =  (  eO  93  eS  e7  e9  elO  eI3  el4  } 

518  =  (  eO  el  e2  e3  e4  eS  eQ  e7  e8  e9  elO  ell  el2  al3  el4 
el5  > 
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CYCLIC  GROUP  C{3) 


The  ELEMENTS  are  the  following: 

eO  is  the  identity  element 
el  *  (  1  2  3  ) 
e2  =  (132) 


The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  =  {  eO  el  e2  } 
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CYCLIC  GROUP  C(4) 


The  ELEMENTS  are  the  following: 
eO  is  the  identity  element 


el  = 

( 

1 

2 

3  4  ) 

e2  = 

( 

2 

4 

)  (  1  3  ) 

e3  « 

( 

1 

4 

3  2  ) 

The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  »  (  eO  e2  ) 

52  *  {  eO  el  e2  e3  } 
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CYCLIC  GROUP  C(5) 


The  ELEMENTS  are  the  following: 
eO  Is  the  identity  element 


el  = 

{ 

1 

2 

3 

4 

5 

) 

e2  = 

( 

1 

3 

5 

2 

4 

) 

e3  = 

( 

1 

4 

2 

5 

3 

) 

e4  = 

( 

1 

•5 

4 

3 

2 

) 

The  subgroups  are  the  following 

50  is  the  null  subgroup 

51  =  {  eO  el  e2  e3  e4  } 


CYCLIC  GROUP  C(6) 


The  ELEMENTS  are  the  following: 


eO 

is 

the 

Identity  element 

e  1 

s 

( 

1 

2 

3 

4  5  6  ) 

e2 

s 

( 

2 

4 

6 

)  (  13  5) 

e3 

= 

( 

3 

6 

)  ( 

2  5  )  (  14) 

e4 

s 

( 

2. 

6 

4 

)  (  1  5  3  ) 

eS 

s 

( 

1 

6 

5 

4  3  2  ) 

The  subgroups  are  the  following 

50  is  the  null  subgroup 

51  =  (  eO  e3  ) 

52  =  (  eO  e2  e4  } 

53  s  (  eO  el  e2  e3  e4  eS  } 


CYCLIC  GROUP  C(7) 


The  ELEMENTS  are  the  following: 


eO 

is 

the 

Identity 

element 

el 

= 

( 

1 

2 

3  4  5  6 

7  ) 

e2 

= 

( 

1 

3 

5  7  2  4 

6  ) 

e3 

= 

( 

1 

4 

7  3  6  2 

5  ) 

e4 

= 

( 

1. 

5 

2  6  3  7 

4  } 

e5 

= 

( 

1 

6 

4  2  7  5 

3  ) 

e6 

= 

( 

1 

7 

6  5  4  3 

2  ) 

The  subgroups  are  the  following 


50  is  the  null  subgroup 

51  =  {  eO  el  e2  e3  e4  eS  e6  } 


CYCLIC  GROUP  CCS) 


The  ELEMENTS  are  the  following: 
eO  i3  the  identity  element 


e  1 

= 

( 

1 

2 

3 

4 

5 

6 

7  8  ) 

e2 

S 

( 

2 

4 

6 

8 

) 

( 

13  5  7 

) 

e3 

= 

( 

1 

4 

7 

2 

5 

8 

3  6  ) 

e4 

s 

( 

4- 

8 

) 

(  3 

7 

)  (  2  6  ) 

( 

e5 

s 

( 

1 

6 

3 

8 

5 

2 

7  4  ) 

e6 

a 

( 

2 

8 

e 

4 

) 

( 

17  5  3 

) 

e7 

= 

( 

1 

8 

7 

6 

5 

4 

3  2  ) 

The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  “  (  eO  e4  } 

52  3  {  eO  e2  e4  e6  ) 

53  -  (  eO  el  e2  e3  e4  eS  e6  e7  } 


CYCLIC  GROUP  C(9) 


The  ELEMENTS  are  the  following: 


eO  is  the  identity  element 


e  1 

= 

( 

1 

2 

3 

4 

5 

6 

7 

a  9 

) 

e2 

= 

( 

1 

3 

5 

7 

9 

2 

4 

6  a 

) 

e3 

= 

( 

3 

6 

9 

) 

( 

2  5 

8 

)  ( 

1 

4 

7 

) 

e4 

( 

1. 

5 

9 

4 

8 

3 

7 

2  6 

) 

e5 

( 

1 

6 

2 

7 

3 

8 

4 

9  5 

) 

e6 

= 

( 

3 

9 

6 

) 

( 

2  8 

5 

)  ( 

1 

7 

4 

) 

e7 

= 

( 

1 

8 

6 

4 

2 

9 

7 

5  3 

) 

e8 

= 

( 

1 

9 

8 

7 

6 

5 

4 

3  2 

) 

The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  ®  {  eO  e3  e6  ) 

52  =  <  eO  el  e2  e3  e4  e5  e6  e7  eS  ) 
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CYCLIC  GROUP  C(10) 


The  ELEMENTS  are  the  following: 
eO  is  the  identity  element 


e  1 

S 

( 

1 

2  3 

4  5  6 

7 

8  9  10  ) 

e2 

= 

( 

2 

4  6 

8  10 

)  ( 

13  5  7 

9 

) 

e3 

s 

( 

1 

4  7 

10  3 

6 

9  2  5  8  ) 

e4 

s 

( 

2 

6  10 

4  8 

)  ( 

15  9  3 

7 

) 

eS 

= 

( 

5 

10  ) 

(  4  9 

) 

(  3  8  )  ( 

2 

7 

e6 

= 

( 

2 

8  4 

10  6 

)  ( 

17  3  9 

5 

) 

e7 

= 

( 

1 

8  5 

2  9  6 

3 

10  7  4  ) 

eS 

s 

( 

2 

10  8 

6  4 

)  ( 

19  7  5 

3 

) 

e9 

s 

( 

1 

10  9 

8  7 

6 

5  4  3  2  ) 

The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  =  {  eO  e5  } 

52  *  {  eO  e2  e4  e6  eS  ) 

53  =  (  eO  el  e2  e3  e4  e5  e6  e7  eS  e9  } 
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CYCLIC  GROUP  C(ll) 


The  ELEMENTS  are  the  following: 

eO  is  the  identity  element 
el  =(123456789  10  11) 
e2=  (13579  11  2468  10) 

e3=  (147  10  258  11  369) 
e4=(  I.  5926  1037  1148) 
e5=  (16  11  5  10  493827) 

e6=  (1728394  10  5  11  6) 

e7=  (184  11  73  10  6295) 

e8=  (1963  11  852  10  74) 

e9=(1108642119753) 
elO  =(1  11  10  98765432) 


The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  »  (  eO  el  e2  e3  e4  e5  e6  e7  eS  e9  elO  > 
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CYCLIC  GROUP  C(12) 


The  ELEMENTS  are  the  following: 

eO  Is  the  identity  element 

el  *  (  1  2  3  4  5  6  7  8  9  10  11  12  ) 

e2=  (2468  10  12  )(  1357911) 

e3  =  (  3  6  9  12  ) (  2  5  8  11  ) (  1  4  7  10  ) 

e4  »  (  4.  8  12  )  (  3  7  11  )  (  2  6  10  >  (  1  5  9  ) 

e5  B  (  1  6  11  4  9  2  7  12  5  10  3  8  ) 

e6  =  (  6  12  )  (  5  1 1  )  (  4  10  )  (  3  9  )  (  2  8  )  (  1  7  ) 

e7  =(  1  8  3  10  5  12  7  2  9  4  11  6  ) 

e8  =  (  4  12  8  ) (  3  11  7  ) (  2  10  6  ) (  1  9  5  ) 

e9  *  (  3  12  9  6  )  (  2  1 1  8  5  )  (  1  10  7  4  ) 

elO  =  (  2  12  10  8  6  4  )  (  1  1 1  9  7  5  3  ) 

ell  =(1  12  11  10  98765432) 


The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  =  {  eO  e6  } 

52  -  (  eO  e4  eS  } 

53  «  (  eO  e3  e6  e9  ) 

54  =  (  eO  e2  e4  e6  eS  elO  } 

55  =  (  eO  el  e2  e3  e4  e5  e6  e7  e8  e9  elO  ell  > 
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CYCLIC  GROUP  C(13) 


The  ELEMENTS  are  the  following: 

eO  Is  the  identity  element 
el  *  (  1  2  3  4  5  6  7  8  9  10  11  12  13  ) 

e2  =  (  1  3  5  7  9  11  13  2  4  6  8  10  12  ) 

e3  =  (  1  4  7  10  13  3  6  9  12  2  5  8  11  ) 

e4  =  (  1.  5  9  13  4  8  12  3  7  11  2  6  10  ) 

e5  =  (  1  6  11  3  8  13  S  10  2  7  12  4  9  > 

e6  s  (  1  7  13  6  12  5  11  4  10  3  9  2  8  ) 

e7  =  (  1  8  2  9  3  10  4  11  S  12  6  13  7  ) 

e8  =(  1  9  4  12  7  2  10  5  13  8  3  11  6  ) 
e9  =(  1  10  6  2  11  7  3  12  8  4  13  9  5  ) 
elO  =(  1  11  a  5  2  12  9  6  3  13  10  7  4  ) 

ell  =(  1  12  10  8  6  4  2  13  11  9  7  5  3  ) 

el2  =(  1  13  12  11  10  9  8  7  6  5  4  3  2  ) 


The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  =  (  eO  el  e2  e3  e4  e5  e6  e7  e8  e9  elO  ell  el2 
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CYCLIC  GROUP  C(14) 


The  ELEMENTS  are  the  following: 


eO 
el 
e2 
e3 
e4 
e5 
e6 
e7 
eS  a 
e9  a 
elO  a 
ell  a 
el2  a 
el3  a 


1  2  3  4  5  6  7  8  9  10  1 1  12  13  14  ) 

2  4  6  8  10  12  14  ) (  1357911  13  ) 

1  4  7  10  13  2  5  8  11  14  3  6  9  12  ) 

2'.6  10  14  4  8  12  )(  1  5  9  13  3  7  11  ) 

1  6  11  2  7  12  3  8  13  4  9  14  5  10  ) 

2  8  14  6  12  4  10  )(  1  7  13  5  11  3  9  1 

7  14  )  (  6  13  )  (  5  12  )  (  4  11  )  (  3  10  )  ( 
2  10  4  12  6  14  8  )  (  1  9  3  11  5  13  7  ) 

1  10  5  14  9  4  13  a  3  12  7  2  11  6  ) 

(  2  12  8  4  14  10  6  ) (  1  11  7  3  13  9  5  ) 

(  1  12  9  6  3  14  11  8  5  2  13  10  7  4  ) 

(  2  14  12  10  8  e  4  )  {  1  13  11  9  7  5  3  ) 

(  1  14  13  12  11  10  9  a  7  6  5  4  3  2  ) 


2  9  )  (  18) 


The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  a  {  eO  e7  } 

52  a  (  eO  e2  e4  e6  e8  elO  el2  } 

53  a  (  eO  el  e2  e3  e4  e5  e6  e7  e8  e9  elO  ell  el2  el3  } 
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CYCLIC  GROUP  C(15) 


The  ELEMENTS  are  the  following: 


eO  is  the  Identity  element 


el  * 

( 

1 

2  3 

4  5 

6 

7  8  9  10 

11 

12 

13 

14  15 

) 

e2  = 

( 

1 

3  5 

7  9 

11 

13  15  2 

4 

6  8 

10 

12  14 

) 

e3  = 

( 

3 

6  9 

12 

15 

)  (  2  5  8 

1  1 

14 

)  ( 

1  4  7 

10 

13 

) 

e4  = 

( 

1 

5  9 

13 

2  6 

10  14  3 

7 

11 

15 

4  8  12 

) 

e5  = 

( 

5 

10  15  ) 

(  4 

9  14  )  { 

3 

8  13  ) 

(  2  7  12  ) 

(  1 

6  11  ) 

e6  = 

( 

3 

9  15 

6 

12 

}  (  2  8  14  5 

11 

)  ( 

1  7  13 

4 

10 

) 

e7  = 

( 

1 

6  15 

7 

14 

6  13  5  12  4 

11 

3 

10  2  9 

) 

eS  = 

( 

1 

9  2 

10 

3  11  4  12  5 

13 

6 

14 

7  15  8 

) 

e9  = 

( 

3 

12  6 

15 

9 

)  (  2  11 

5  14  8 

)  ( 

1  10  4 

13 

7 

) 

elO  = 

( 

5  15 

10 

)  ( 

4  14  9  } 

(  3 

13 

8 

)  (  2  12 

7 

)  ( 

1  11  6  ) 

ell  = 

( 

1  12 

S  4 

15 

117  3 

14 

10 

6  2 

13  9  5 

) 

el2  * 

( 

3  15 

12 

9  6 

)  (  2  14 

1 1 

8 

5  ) 

(  1  13 

10 

7  4 

) 

el3  = 

( 

1  14 

12 

10 

8  6  4  2 

15 

13 

11 

9  7  5  3 

) 

e  14  = 

( 

1  15 

14 

13 

12  11  10 

9 

8  7 

6 

5  4  3  2 

) 

The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  =  {  eO  e5  elO  } 

52  =  (  eO  e3  e6  e9  el2  } 

53  -  (  eO  el  e2  e3  e4  eS  eO  e7  eS  e9  elO  ell  el2  el3  el4  } 
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CYCLIC  GROUP  C(16) 


The  ELEMENTS  are  the  following: 
eO  is  the  identity  element 


el  * 

( 

1  2  3  4  5  6 

7 

8  9 

10  11 

12 

13  1^  15  16  ) 

e2  » 

( 

2  4  6  8  10 

12 

14 

16  )  ( 

1  3 

5  7  9  11  13  15  ) 

e3  - 

( 

1  4  7  10  13 

16 

3 

6  9  12 

15 

2  5  8  11  14  } 

e4  = 

( 

4.  8  12  16  ) 

(  3 

7 

1 1  15 

)  ( 

2  6  10  14  }  (  15  9 

13  ) 

eS  * 

( 

1  6  11  16  5 

10 

15 

4  9  14  3 

8  13  2  7  12  ) 

e6  * 

( 

2  8  14  4  10 

16 

6 

12  )  ( 

1  7 

13  3  9  15  5  11  } 

e7  » 

( 

1  8  15  6  13 

4 

1 1 

2  9  16 

7 

14  5  12  3  10  ) 

e8  = 

( 

8  16  )  (  7  15  )  (  6 

14  )  ( 

5 

13  )  (  4  12  )  (  3  11 

)  (  2  10 

e9  = 

( 

1  10  3  12  5 

14 

7 

16  9  2 

11 

4  13  6  15  8  } 

elO  = 

(  2  12  6  16 

10 

4  14  8  )  ( 

1 

11  5  15  9  3  13  7  ) 

ell  = 

(  1  12  7  2  13  8 

3 

14  9  4 

15 

10  5  16  11  6  ) 

el2  = 

(  4  16  12  8 

)  ( 

3  15  11  7 

)  ( 

2  14  10  6  )(  1  13 

9  5  } 

el3  = 

(  1  14  11  8 

5  2 

15 

12  9 

6  3 

16  13  10  7  4  ) 

el4  = 

(  2  16  14  12 

10 

8 

6  4  )  ( 

1 

15  13  11  9  7  5  3  ) 

el5  = 

{  1  16  15  14 

13 

12 

1 1  10 

9 

8  7  6  5  4  3  2  ) 

The  subgroups  are  the  following: 


50  is  the  null  subgroup 

51  -  (  eO  eS  } 

52  >  {  eO  e4  eS  el2  } 

53  B  (  eO  e2  e4  e6  eS  elO  el2  el4  } 

54  >  (  eO  el  e2  e3  e4  e5  e6  e7  eS  e9  elO  ell  el2  el3  el4 

el5  } 
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ABELIAN  GROUP  (a4xa2) 


The  ELEMENTS  are  the  following: 


eO 

is 

the 

identity 

element 

e  1 

= 

( 

1 

2 

3  4  ) 

e2 

= 

( 

5 

6 

) 

e3 

= 

( 

2, 

4 

)  (  1 

3 

) 

e4 

= 

( 

1  ■ 

4 

3  2  ) 

eS 

= 

( 

5 

6 

)  (  1 

2 

3  4  ) 

e6 

s 

( 

5 

6 

)  (  2 

4 

)  (  1  3  ) 

e7 

B 

( 

5 

6 

)  (  1 

4 

3  2  ) 

The  subgroups  are  the  following: 


SO 

is 

the 

nul  1  1 

subgroup 

SI 

B 

{ 

eO 

e2 

) 

S2 

B 

{ 

eO 

e3 

) 

S3 

( 

eO 

e6 

) 

S4 

{ 

eO 

el 

e3 

e4 

) 

S5 

= 

{ 

eO 

e3 

e5 

e7 

) 

S6 

B 

{ 

•  0 

e2 

e3 

e6 

) 

S7 

= 

{ 

eO 

el 

e2 

e3 

ID 

• 

<< 

e 
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ABELIAN  QROUP  (a2a2a2) 


The  ELEMENTS  are  the  following: 

eO  Is  the  identity  element 

el  »  (  1  2  ) 

e2  »  (34) 

e3  =  (  5.6  ) 

e4  »  (  3  4  ) (  1  2  } 

e5  =  (  5  6  ) (  12) 

e6  ~  (  5  6  )  (  3  4  ) 

e7  -  {56)(34)(  12) 


The  subgroups  are  the  following: 


SO 

is 

the 

nul  1 

subgroup 

SI 

= 

( 

eO 

e  1 

) 

S2 

= 

< 

eO 

e2 

} 

S3 

s 

{ 

eO 

e3 

) 

S4 

= 

< 

eO 

e4 

} 

S5 

=; 

{ 

eO 

e5 

} 

S6 

s 

{ 

eO 

e6 

) 

S7 

= 

{ 

eO 

e7 

} 

S8 

s 

{ 

eO 

e  1 

e2 

e4 

} 

S9 

= 

{ 

eO 

el 

e3 

e5 

) 

510  >  {  eO  e2  e3  e6  } 

511  =  {  eO  e2  e5  e7  ) 

512  »  {  eO  e3  e4  e7  ) 

513  =  {  eO  e4  eS  e6  } 

514  -  {  eO  el  e6  e7  } 

515  =  {  eO  el  e2  e3  e4  e5  e6  e7  ) 
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ABELIAN  GROUP  (a3xa3) 


The  ELEMENTS  are  the  following: 
eO  is  the  Identity  element 


e  1 

= 

( 

1 

2 

3 

) 

e2 

S 

( 

4 

5 

6 

) 

e3 

» 

( 

1 

.3 

2 

) 

e4 

= 

( 

4 

’6 

5 

) 

e5 

s 

( 

4 

5 

6 

)  ( 

1 

2 

3 

) 

e6 

= 

( 

4 

6 

5 

)  ( 

1 

2 

3 

) 

e7 

s 

( 

4 

5 

6 

)  ( 

1 

3 

2 

) 

eS 

s 

( 

4 

6 

5 

)  ( 

1 

3 

2 

) 

The  subgroups  are  the  following: 


SO 

is 

the 

null 

subgroup 

SI 

s 

{ 

eO 

e  1 

e3 

) 

S2 

s 

{ 

eO 

e2 

e4 

) 

S3 

= 

{ 

eO 

eS 

ed 

) 

S4 

= 

( 

eO 

e6 

e7 

) 

S5 

s 

{ 

eO 

e  1 

e2 

e3  e4  e5  e6  e7  e6  ) 
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ABELIAN  GROUP  (a6xa2) 


The  ELEMENTS  are  the  following: 


eO  is  the  identity  element 

el  =  (  1  2  3  4  5  6  ) 

e2  =  (78) 

e3=  (246)(  135) 

e4  =  (  3  ’6  )  (  2  5  )  (  14) 

e5-  (264)(  153) 

e6  =  (  1  6  5  4  3  2  ) 

e7=  (78)(  123456) 

e8=  (78)(246)(  135) 

e9=  {78)(36)(25)(  14) 

elO  =  (78)(264)(  153) 

ell=(78)(  165432) 


The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  a  {  eO  e2  ) 

52  a  {  eO  e4  ) 

53  a  (  eO  e9  } 

54  a  {  eo  e3  e5  } 

55  a  {  eO  e2  e4  e9  ) 

56  a  (  eO  el  e3  e4  e5  e6  } 

57  a  {  eO  e3  e5  e7  e9  ell  ) 

58  a  {  eO  e2  e3  e5  e8  elO  } 

59  a  {  eO  el  e2  e3  e4  e5  e6  e7  e8  e9  elO  ell 
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ABELIAN  GROUP  (a2x8) 


The  ELEMENTS  are  the  following: 

eO  is  the  identity  element 
el=  (12345678) 
e2  =  (  9  10  ) 

e3=  (2468)(  1357) 

e4  =  (  1.  4725836) 

e5=  (48){37)(26)(  15) 

e6=  (  16385274) 

e7=  (2864)(  1753) 

e8=  (18765432) 

e9=  (910)(12345678) 

elO  =  (910)(246a)(  1357) 

ell=  (910)(  14725836) 

el2  =  (910)(48)(37)(26)(  15) 

el3  =  (9i0)(16385274) 

el4=  (910)(2864)(  1753) 

el5  =  (9  10  )(  18765432) 


The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  =  {  eO  e2  > 

52  =  {  eO  e5  ) 

53  =  {  eO  el2  } 

54  =  {  eO  e3  e5  e7  ) 

55  =  (  eO  e5  elO  cl4  } 

56  -  (  eO  e2  e5  el2  } 

57  »  {  eO  el  e3  e4  e5  «6  «7  e8  } 

58  »  {  eO  e3  e5  e7  e9  ell  el3  el5  } 

59  >  (  eO  e2  e3  e5  e7  elO  el2  el4  } 

SIO  >  {  eO  el  e2  e3  e4  e5  e6  e7  e8  e9  elO  ell  el2  el3  el4 
el5  } 


ABELIAN  GROUP  (a4x4) 


The  ELEMENTS  are  the  following: 
eO  is  the  identity  element 


el  a 

( 

1 

2 

3  4  ) 

e2  a 

( 

5 

6 

7  8  ) 

e3  a 

( 

2 

4 

)  (  1  3 

) 

e4  a 

( 

1 

.  4 

3  2  ) 

e5  a 

( 

6 

8 

)  (  5  7 

) 

e6  a 

( 

5 

8 

7  6  ) 

e7  a 

( 

5 

6 

7  8  )  { 

1 

2 

3  4 

) 

eS  a 

( 

6 

8 

)  (  5  7 

) 

( 

1  2  3 

4  ) 

e9  a 

( 

5 

8 

7  6  )  ( 

1 

2 

3  4 

) 

elO 

= 

( 

5 

6  7  8  ) 

( 

2 

4  )  ( 

1 

3 

) 

ell 

= 

( 

6 

8  )  (  5 

7 

)  ( 

2  4 

) 

(  1 

3 

el2 

= 

( 

5 

8  7  6  ) 

( 

2 

4  )  ( 

1 

3 

) 

el3 

( 

5 

6  7  8) 

( 

1 

4  3  2 

) 

el4 

= 

( 

6 

8  )  (  5 

7 

)  ( 

1  4 

3 

2 

) 

el5 

( 

5 

8  7  6  ) 

( 

1 

4  3  2 

) 

The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  =  (  eO  e3  } 

52  =  {  eO  e5  } 

53  =  (  eO  ell  } 

54  =  {  eO  el  e3  e4  } 

55  =  {  eO  e2  e5  e6  ) 

56  =  {  eO  e7  ell  el5  } 

57  =  {  eO  e3  eS  el4  > 

S6  ^  (  eO  e9  ell  el3  } 

S9  =  {  eO  e5  elO  el2  } 

510  =  {  eO  e3  e5  ell  } 

511  =  {  eO  el  e3  e4  e5  e0  el].  el4  ) 

512  =  (  eO  e2  e3  e5  e6  elO  ell  el2  > 

513  =  {  eO  e3  e5  e7  e9  ell  el3  el5  } 

514  s  (  cO  el  e2  e3  e4  eS  eS  e7  eS  e9  elO  ell  el2  el3  el4 

el5  } 
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ABELIAN  GROUP  (a2x2x4) 


The  ELEMENTS  are  the  following: 


eO  is  the  Identity  element 


el  = 

( 

1  2  ) 

e2  = 

{ 

3  4  ) 

e3  = 

( 

5  6  7 

8  ) 

e4  = 

C 

6-  a  ) 

( 

5 

7 

) 

e5  = 

( 

5  8  7 

6  ) 

e6  = 

( 

3  4  ) 

( 

1 

2 

) 

e7  = 

( 

5  6  7 

a  ) 

( 

1 

2  ) 

eS  = 

( 

6  8  ) 

( 

5 

7 

)  ( 

1 

2 

) 

e9  = 

( 

5  8  7 

6  ) 

( 

1 

2  ) 

elO  = 

(  5  6 

7 

8 

) 

(  3 

4 

) 

ell  = 

(  6  8 

) 

(  5 

7  ) 

(  3 

4 

) 

el2 

(  5  a 

7 

6 

) 

(  3 

4 

) 

el3  = 

(  5  6 

7 

8 

) 

(  3 

4 

) 

( 

1 

2  ) 

el4  = 

(  6  8 

) 

(  5 

7  ) 

(  3 

4 

) 

(  1  2 

el5  = 

(  5  8 

7 

6 

) 

(  3 

4 

) 

( 

1 

2  ) 

The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  =  (  eO  el  ) 

52  =  {  eO  e2  } 

53  =  {  eO  e4  } 

54  =  {  eO  e6  } 

55  =  {  eO  e8  } 


S6  = 

{ 

eO 

ell 

} 

S7  = 

{ 

eO 

e  14 

} 

S8  = 

( 

eO 

e3 

e4  e5  ) 

S9  = 

{ 

eO 

e  1 

e2  e6  } 

S  10 

=  { 

eO 

e4 

e7 

e9  } 

S  ’  1 

=  { 

eO 

e  1 

e4 

e8  } 

S12 

=  ( 

eO 

e4 

elO 

el2  } 

S  13 

=  { 

eO 

e4 

el3 

el5  } 

S14 

=  { 

eO 

e2 

e4 

ell  > 

S  15 

=  { 

eO 

e2 

e8 

el4  } 

S16 

=  ( 

eO 

e4 

e6 

el4  } 

S  17 

=  { 

eO 

e6 

e8 

ell  } 

S18 

=  { 

eO 

e  1 

ell 

e  1 4  } 

S19 

=  { 

eO 

e  1 

e3 

e4  e5  e7  e8  e9  } 

S20 

=  { 

eO 

e2 

e3 

e4  e5  elO  ell  el2  } 

S21 

=  ( 

eO 

e2 

e4 

e7  e9  ell  el3  el5  > 

S22 

=  ( 

eO 

e  1 

e2 

e4  e6  e8  ell  el4  } 

S23 

=  { 

eO 

e3 

e4 

e5  e6  el3  el4  el5  } 

S24 

=  { 

eO 

e4 

e6 

e7  e9  elO  el2  el4  > 

S25 

=  { 

eO 

e  1 

e4 

e8  elO  el2  el3  el5  } 

S26 

=  { 

eO 

e  1 

e2 

e3  e4  e5  e6  e7  e8  e9  elO  ell  el2  el3  el4 

e  15 

} 
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ABELIAN  GROUP  (a22x22) 


The  ELEMENTS  are  the  following: 

eO  Is  the  Identity  element 

el  =  (  1  2  ) 

e2  =  (34) 

e3  =  (56) 

e4  =  (  T  8  ) 

e5  =  (  3  4  ) (  1  2  ) 

e6  =  (  5  6  )  (  12) 

e7  =  (  7  8  ) (  12) 

e8  =  (  5  6  ) (  3  4  ) 

e9=  (5e)(34)(  12) 

elO  =  (  7  8  ) (  5  6  ) 

ell=(78)(56)(12) 

el2  =  (  7  8  )  (  3  4  ) 

el3  =  (78)(34)(  12) 

el4  *  (78)(56)(34) 

el5=  (78)(56)(34)(12 


The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  =  (  eO  el  > 

52  *  (  eO  e2  } 

53  *  (  eO  e3  } 

54  »  (  eO  e4  } 

55  *  {  eO  e5  } 

56  =  {  eO  e6  } 

57  =  (  eO  e7  } 

58  =  (  eO  e8  } 

59  =  (  eO  e9  } 

510  =  {  eO  elO  } 

511  =  {  eO  ell  } 

512  =  {  eO  el2  } 

513  =  {  eO  el3  ) 

514  =  {  eO  el4  } 

515  =  {  eO  el5  } 

516  =  {  eO  el  e2  e5  } 

517  =  {  eO  el  e3  e6  } 

518  =  (  eO  el  e4  e7  } 

519  =  {  eO  el  elO  ell  } 

520  =  (  eO  e2  e3  e8  } 

521  =  {  eO  e2  e4  612  } 

522  =  {  eO  e2  e6  e9  } 

523  =  {  eO  e2  e7  el3  } 

524  =  {  eO  e2  elO  el4  } 

525  =  {  eO  e2  ell  el5  ) 

526  ==  (  eO  e3  e4  elO  } 

527  =  {  eO  e3  e5  e9  } 

528  =  {  eO  e3  e7  ell  } 

529  s  {  eO  e4  e5  el3  ) 
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530  = 

531  = 

532  = 

533  = 

534  = 

535  = 

536  = 

537  = 

538  = 

539  = 

540  = 

541  » 

542  = 

543  = 

544  = 

545  = 

546  = 

547  = 

548  = 

549  = 

550  = 

551  = 

552  * 

553  * 

554  = 

555  * 

556  = 

557  = 

558  = 

559  = 

560  = 

561  = 

562  = 

563  = 

564  = 

565  = 

566  = 
el5  ) 


{  eO 
{  eO 
{  eO 
(  eO 
(  eO 
(  eO 
(  eO 
{  eO 
{  ,eO 
{  eO 
{  eO 
{  eO 
{  eO 
(  eO 
(  eO 
{  eO 
{  eO 
(  eO 
(  eO 
{  eO 
{  eO 
{  eO 
(  eO 
{  eO 
{  eO 
{  eO 
{  eO 
{  eO 
{  eO 
{  eO 
{  eO 
{  eO 
(  eO 
(  eO 
(  eO 
{  eO 


e4  e6 
e4  e8 
e4  e9 
e5  e6 
e5  e7 
e5  e  10 
eS  ell 
e6  e7 
e7  e8 
e7  e9 
el  e8 
e8  elO 
eS  ell 
e9  e  10 
eg  ell 
el  el2 
e3  el2 
e6  e  1 2 
e3  el3 
e6  el3 
el  e  1 4 
el  e2 
el  e3 
el  e2 
el  e2 
el  e4 
el  e3 
el  e6 
e2  e3 
e2  e3 
e2  e4 
e2  e6 
e3  e4 
e3  eS 
e4  eS 
eS  e6 


(  eO  el  e2 


ell  } 
el4  } 
el5  ) 
e8  } 
el2  } 
el5  } 
el4  } 
elO  > 
el5  } 
el4  } 
e9  } 

I  el2  ) 
el3  } 

I  el3  ) 
el2  } 
el3  ) 
el4  } 
elS  } 

I  el5  } 

I  el4  ) 

:  el5  } 

e3  eS  e6  e8  e9  } 
e4  e6  e7  elO  ell  } 
e4  eS  e7  el2  el3  } 
e5  elO  ell  el4  el5  } 
e7  e8  e9  el4  «15  } 
e6  el2  el3  el4  el5  } 
e9  elO  ell  el2  el3  ) 
e4  eS  elO  el2  el4  } 
e7  e8  ell  el3  el5  ) 
e6  e9  ell  el2  el5  } 
e7  e9  elO  el3  el4  } 
eS  e9  elO  el3  el5  } 
e7  e9  ell  el2  el4  ) 
e6  e8  ell  el3  el4  } 
e7  e8  elO  el2  el5  } 

e3  e4  e5  e6  e7  e8  e9  elO  ell  el2  el3  el4 


UNKNOWN  GROUP  (klein4) 


The  ELEMENTS  are  the  following: 
eO  Is  the  Identity  element 


el  = 

( 

3 

4 

)  ( 

1 

2 

) 

e2  = 

( 

2 

3 

)  ( 

1 

4 

) 

e3  = 

( 

2 

4 

)  ( 

1 

3 

) 

The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  =  {  eO  el  } 

52  s  {  eO  e2  } 

53  =  {  eO  e3  ) 

54  =  (  eO  el  e2  e3  } 
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UNKNOWN  GROUP  (q4) 


The  ELEMENTS  are  the  following: 

eO  is  the  identity  element 
el=  (5a76)(1432) 
e2=  (2547)(1638) 
e3=  (68)(57)(24)(  13) 
e4=  (5678)(  1234) 
e5=  (2745)(  1836) 
e6=  (2648)(  1735) 
e7=  (2846)(  1537) 


The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  »  {  eO  e3  ) 

52  =  (  eO  el  e3  e4  } 

53  =  {  eO  e2  e3  e5  ) 

54  =  {  eO  e3  e6  e7  } 

55  •  (  eO  el  e2  e3  e4  e5  e6  e7  } 


UNKNOWN  GROUP  (alt4) 


The  ELEMENTS  are  the  following: 
eO  Is  the  Identity  element 


e  1 

= 

( 

r 

•2 

3  ) 

e2 

S 

( 

2 

3 

4  ) 

e3 

= 

( 

2 

3 

)  (  1 

4 

) 

e4 

s 

( 

1 

3 

2  ) 

eS 

s 

( 

2 

4 

3  ) 

e6 

= 

( 

2 

4 

)  (  1 

3 

) 

e7 

s 

( 

3 

4 

)  (  1 

2 

) 

e8 

= 

( 

1 

4 

3  ) 

e9 

= 

( 

1 

2 

4  ) 

elO  =(142) 
ell  =(134) 


The  subgroups  are  the  following: 

50  Is  the  null  subgroup 

51  =  {  eO  e3  } 

52  =  {  eO  e6  ) 

53  =  {  eO  e7  ) 

34  =  {  eO  el  e4  } 

55  =  {  eO  e2  eS  } 

56  =  (  eO  eS  ell  } 

57  =  {  eO  e9  elO  ) 

58  =  {  eO  e3  e6  e7  } 

59  =  (  eO  el  e2  e3  e4  eS  e6  e7  e8  e9  elO  ell  ) 
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UNKNOWN  GROUP  (s3xz2) 


The  ELEMENTS  are  the  following: 

eO  is  the  Identity  element 

el  =  (  1  2  3  ) 

e2  =  (  1  3  ) 

e3  =  (45) 

e4  =  (  1'.3  2  ) 

e5  =  (  1  2  ) 

e6  =  (  2  3  ) 

e7  *  (  4  5  ) (  1  2  3  ) 

e8  *  (  4  5  ) (  132) 

e9  =  (  4  5  ) (  13) 

elO  *  (  4  5  )  (  2  3  ) 

ell  =  (  4  5  ) (  1  2  ) 


The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  =  {  eO  e2  } 

52  =  {  eO  e3  ) 

53  =  (  eO  e5  } 

54  =  {  eO  e6  > 

55  =  (  eO  e9  } 

56  =  {  eC  elO  } 

57  =  (  eC  ell  ) 

58  =  {  eO  el  e4  ) 

59  s  (  eC  e2  e3  e9  } 

510  =  (  e  J  e3  eS  ell  > 

511  =  {  eO  e3  e6  elO  } 

512  =  {  eO  el  e2  e4  e5  e6  ) 

513  »  {  eO  el  e3  e4  e7  e8  } 

514  =  (  eO  el  e4  e9  elO  ell  > 

515  =  {  eO  el  e2  e3  e4  e5  e6  e7  e8  e9  elO  ell  > 
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UNKNOWN  GROUP  (sci2z822) 


The  ELEMENTS  are  the  following: 
eO  Is  the  Identity  element 


el  » 

( 

9 

16 

15 

14 

13 

12 

11  10 

)  (  1  8  7  6  5  4  3  2  ) 

e2  » 

( 

8 

12 

)  ( 

7  9 

)  ( 

6 

14  }  ( 

5  11  )  (  4  16  )  (  3  13 

)  (  2  10 

)  (  1 

15  ) 

e3  “ 

( 

10 

16 

14 

12 

)  ( 

9 

15  13 

11)(2864)(17 

5 

3  ) 

e4  = 

( 

9 

14 

1 1 

16 

13 

10 

15  12 

)  (  1  6  3  8  5  2  7  4  ) 

e5  = 

( 

12 

16 

)  ( 

11 

15 

)  (  10  14  )  (  9  13  )  (  4  8  )  (  3 

7 

)  (  2  6 

)  ( 

1 

5  ) 

e6  * 

( 

9 

12 

15 

10 

13 

16 

1 1  14 

)  (  1  4  7  2  5  8  3  6  ) 

e7  = 

( 

10 

12 

14 

16 

)  ( 

9 

11  13 

15  )  (  2  4  6  8  )  (  1  3 

5 

7  ) 

e8  » 

( 

9 

10 

11 

12 

13 

14 

15  16 

)  (  1  2  3  4  5  6  7  8  ) 

e9  » 

( 

4 

13 

8  9 

)  ( 

3 

10 

7  14 

)  (  2  15  6  11  )  (  1  12  5 

16  ) 

elO  = 

(  4 

15 

8 

11 

)  ( 

3 

12  7  16  )(  2  9  6  13  )(  1  14 

5 

10  ) 

ell  = 

(  8 

14 

)  ( 

7 

1 1 

)  ( 

6  16 

)  (  5  13  )  (  4  10  )  (  3  15 

)  (  2  12  )  { 

1  9 

) 

el2  - 

(  8 

16 

)  ( 

7 

13 

)  ( 

6  10 

) (  5  15  ) (  4  12  ) (  3  9 

)  (  2  14 

)  ( 

1 

11 

) 

el3  >> 

(  8 

10 

)  ( 

7 

15 

)  ( 

6  12 

)  (  5  9  )  (  4  14  )  (  3  1 1 

)  (  2  16 

)  ( 

1 

13 

) 

el4  - 

(  4 

9 

8  13  )  (  3 

14  7  10 

)  (  2  11  6  15  )  (  1  16 

5 

12  ) 

el5  = 

(  4 

11 

8 

15 

)  { 

o 

16  7  12  )(  2  13  6  9  )(  1  10 

5 

14  ) 

The  subgroups  are  the  following: 

50  Is  the  null  subgroup 

51  »  {  eO  e2  } 

52  =  (  eO  e5  ) 

53  =  (  eO  ell  } 

54  «  (  eO  el2  } 

55  =  (  eO  el3  } 

56  «  {  eO  e3  e5  e7  } 

57  *  (  eO  e5  e9  el4  ) 

58  s  (  eO  eS  elO  el5  } 

59  *  {  eO  e2  e5  el2  ) 

510  =  (  eO  eS  ell  el3  } 

511  =  {  eO  el  e3  e4  eS  e6  e7  e8  } 

512  -  (  eO  e2  e3  eS  e7  ell  el2  el3  } 

513  -  (  eO  e3  eS  e7  e9  elO  el4  elS  } 

514  (  eO  el  e2  e3  e4  e5  e6  e7  e8  e9  elO  ell  el2  el3  el4 

el5  } 
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UNKNOWN  GROUP  (sdl2az2) 


The  ELEMENTS  are  the  following: 
eO  Is  the  Identity  element 

el  =  (  9  16  15  14  13  12  11  10  )(  1  8  7  6  5  4  3  2  ) 

e2  =  (  8  16  )(  7  11  )(  6  14  )(  S  9  )(  4  12  )(  3  15  )(  2  10  )(  1  13  ) 

e3  =  (  10  16  14  12  ) (  9  15  13  11  ) (  2  8  6  4  ) (  1753) 

e4  =  (  9.  14  1 1  16  13  10  15  12  )(  1  6  3  8  5  2  7  4  ) 

e5  =  (  12  16  ) (  11  15  ) (  10  14  ) (  9  13  ) (  4  8  ) (  3  7  ) (  2  6  ) (  15) 

e6  =  (  9  12  15  10  13  16  1 1  14  )(  1  4  7  2  5  8  3  6  ) 

e7  =  (  10  12  14  16  )(  9  11  13  15  ) {  2  4  6  8  )  C  1357) 

eS  *  (  9  10  11  12  13  14  IS  16  )(  1  2  3  4  5  6  7  8  ) 

e9  =  (  2  13  4  15  6  9  8  1 1  )(  1  16  3  10  5  12  7  14  ) 

elO  =  (  2  9  4  11  6  13  8  15  )(  1  12  3  14  5  16  7  10  ) 

ell  =  (  4  10  a  14  ) (  3  13  7  9  ) (  2  16  6  12  ) (  1  11  5  15  ) 

el2  =  (  4  14  8  10  ) (  3  9  7  13  ) (  2  12  6  16  ) (  1  IS  5  11  ) 

el3  =  (  2  11  a  9  6  15  4  13  )(  1  14  7  12  5  10  3  16  ) 

el4  =  (  2  15  8  13  6  11  4  9  )(  1  10  7  16  5  14  3  12  ) 

el5  =  (  a  12  ) (  7  15  ) (  6  10  ) (  5  13  J (  4  16  ) (  3  1 1  ) (  2  14  ) (  19) 


The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  =  {  eO  e2  ) 

52  =  {  eO  e5  ) 

53  *  {  eO  el5  ) 

54  =  {  eO  e3  e5  e7  > 

55  -  {  eO  e5  ell  el2  ) 

56  =  {  eO  e2  eS  el5  } 

57  =  {  eO  el  e3  e4  e5  e6  e7  e8  } 

58  >  {  eO  e3  e5  e7  e9  elO  el3  el4  } 

59  =  {  eO  e2  e3  e5  e7  ell  el2  el5  } 

SIO  s  {  eO  el  e2  e3  e4  eS  e6  e7  e8  e9  elO  ell  el2  el3  el4 
el5  ) 
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UNKNOWN  GROUP  (qS) 


The  ELEMENTS  are  the  following: 
eO  is  the  identity  element 

el  =  (  9  16  15  14  13  12  11  10  )(  1  a  7  6  5  4  3  2  ) 

e2  *  (  4  15  8  1 1  ) (  3  16  7  12  ) (  2  9  6  13  ) (  1  10  5  14  ) 

e3  =  (  10  16  14  12  )  (  9  15  13  11  )  (  2  8  6  4  )  (  1  7  5  3  ) 

e4  =  (  9-  14  11  16  13  10  15  12  )  (  1  6  3  8  5  2  7  4  ) 

e5  *  (  12  16  )(  11  15  )  (  10  14  )  (  9  13  )  (  4  a  )  (  3  7  )  (  2  6  )  (  1  5  ) 

e6  *  (  9  12  15  10  13  16  1 1  14  )(  1  4  7  2  5  a  3  6  ) 

e7  =  (  10  12  14  16  )  (  9  1 1  13  15  )  (  2  4  6  8  )  (  1  3  5  7  ) 

e8  •  (  9  10  1 1  12  13  14  15  16  )(  1  2  3  4  5  6  7  8  ) 

e9  =  (  4  11  8  15  )  (  3  12  7  16  )  (  2  13  6  9  )  (  1  14  5  10  ) 

elO  *  {  4  16  8  12  )  (  3  9  7  13  )  (  2  10  6  14  )  (  1  1 1  5  15  ) 

ell  =  (  4  14  8  10  )  (  3  15  7  11  )  {  2  16  6  12  )  (  1  9  5  13  ) 

el2  =  (  4  12  8  16  ) {  3  13  7  9  ) (  2  14  6  10  ) (  1  IS  5  11  ) 

el3  =  (  4  10  8  14  )  (  3  1 1  7  15  )  (  2  12  6  16  )  (  1  13  5  9  ) 

el4  =  (  4  9  8  13  )  (  3  10  7  14  )  {  2  11  6  15  )  (  1  12  5  16  ) 

el5  =  (  4  13  8  9  )  (  3  14  7  10  )  (  2  15  6  11  )  (  1  16  5  12  ) 


The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  =  {  eO  e5  } 

52  «  {  eO  e2  e5  e9  } 

53  =  (  eO  e3  e5  e7  ) 

54  =  (  eO  e5  elO  el2  } 

55  -  {  eO  e5  ell  el3  } 

56  -  {  eO  e5  el4  el5  } 

57  =  {  eO  el  e3  e4  e5  e6  e7  e8  } 

58  =  {  eO  e2  e3  e5  e7  e9  el4  el5  } 

59  =  {  eO  e3  e5  e7  elO  ell  el2  el3  ) 

SIO  =  {  eO  el  e2  e3  e4  e5  e6  e7  eS  e9  elO  ell  el2  el3  el4 
el5  } 
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UNKNOWN  GROUP  (q4xz2) 


The  ELEMENTS  are  the  following: 
eO  is  the  identity  element 


el  = 

( 

5  8  7 

6 

)  ( 

1 

4 

3 

2 

) 

e2  = 

( 

2  5  4 

7 

)  ( 

1 

6 

3 

8 

) 

e3  = 

( 

9  10  ) 

e4  = 

( 

©.  8  )  ( 

5 

7 

)  ( 

2 

4 

)  ( 

] 

L  3  ) 

eS  = 

( 

5  6  7 

8 

)  ( 

1 

2 

3 

4 

) 

e6  = 

( 

2  7  4 

5 

)  ( 

1 

8 

3 

6 

) 

e7  = 

( 

2  6  4 

8 

)  ( 

1 

7 

3 

5 

) 

e8  - 

( 

2  8  4 

6 

)  ( 

1 

5 

3 

7 

) 

e9  s 

( 

9  10  ) 

( 

S  8 

1  7 

6 

)  ( 

1 

4  3  2 

) 

elO  = 

(  9  10 

) 

( 

6 

8 

)  ( 

5 

7 

) 

(  2  4 

} 

1  ( 

ell  = 

(  9  10 

) 

( 

5 

6 

7 

8 

) 

( 

1 

2 

3 

4 

) 

el2  = 

(  9  10 

) 

( 

2 

5 

4 

7 

) 

( 

1 

6 

3 

a 

) 

el3  = 

(  9  10 

) 

( 

2 

8 

4 

6 

) 

( 

1 

5 

3 

7 

) 

el4  = 

(  9  10 

) 

( 

2 

6 

4 

a 

) 

( 

1 

7 

3 

5 

) 

el5  = 

(  9  10 

) 

( 

2 

7 

4 

5 

) 

( 

1 

8 

3 

6 

) 

The  subgroups  are  the  following: 

50  is  the  null  subgroup 

51  =  {  eO  e3  } 

52  =  {  eO  e4  } 

53  =  {  eO  elO  } 

54  =  (  eO  el  e4  e5  } 

55  =  (  eO  e2  e4  e6  ) 

56  =  {  eO  e4  e7  e8  ) 

57  =  (  eO  e4  e9  ell  } 

58  =  {  eO  e4  el2  elS  } 

59  =  (  eO  e4  el3  el4  } 

510  =  {  eO  e3  e4  elO  } 

511  =  (  eO  el  e2  e4  eS  e6  e7  e8  } 

512  =  (  eO  el  e3  e4  e5  e9  elO  ell  } 

513  =  (  eO  e2  e3  e4  e6  elO  el2  el5  } 

514  =  (  eO  e2  e4  e6  e9  ell  el3  el4  } 

515  =>  (  eO  e3  e4  e7  e8  elO  el3  el4  } 

516  -  {  eO  e4  e7  e8  e9  ell  el2  elS  > 

517  »  {  eO  el  e4  eS  el2  el3  el4  elS  > 

518  s  (  eO  el  e2  e3  e4  eS  e6  e7  e8  e9  elO  ell  el2  el3  el4 

elS  } 
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UNKNOWN  GROUP  (d4xz2) 


The  ELEMENTS  are  the  following: 

eO  la  the  identity  element 

el  =  (1234) 

e2  =  (  2  3  ) (  14) 

e3  =  (56) 

e4  =  (  2  4  ) (  13) 

e5  =  (1432) 

e6  =  (  1  3  ) 

e7  =  (24) 

e8  =  (  3  4  )  (  12) 

e9=  (56)(1234) 

elO  =  (56)(24)(  13) 

ell=(56)(1432) 

el2  =  (56)(23)(  14) 

el3  =  (  5  6  ) (  2  4  ) 

el4  =  (  5  6  ) (  1  3  ) 

el5=  (56)(34)(  12) 


The  subgroups  are  the  following: 

50  ia  the  null  subgroup 

51  =  {  eO  e2  ) 

52  =  {  eO  e3  } 

53  =  (  eO  e4  ) 

54  =  {  eO  ed  ) 

55  *  {  eO  e7  ) 

56  *  {  eO  ea  ) 

57  *  (  eO  elO  } 

58  =  {  eO  el2  ) 

59  =  {  eO  el3  } 

510  =  {  eO  el4  } 

511  =  (  eO  el5  ) 

512  3  {  eO  el  e4  e5  } 

513  «  {  eO  e4  e9  ell  } 

514  =  (  eO  e2  e3  el2  ) 

515  =  (  eO  e2  e4  ea  ) 

516  =  {  eO  e2  elO  el5  } 

517  =  {  eO  e3  e4  elO  ) 

518  s  (  eO  e3  e6  el4  ) 

519  =  {  eO  e3  e7  el3  ) 

520  s  {  eO  e3  e8  el5  } 

521  =  {  eO  e4  e6  e7  ) 

522  »  {  eO  e6  elO  el3  ) 

523  =  (  eO  e7  elO  el4  ) 

524  =  {  eO  ea  elO  el2  } 

525  s  (  eO  e4  el2  el5  } 

526  -  (  eO  e4  el3  el4  } 

527  *  (  eO  el  e2  e4  e5  e6  e7  ea  ) 

528  =  (  eO  el  e3  e4  eS  e9  elO  ell  } 

529  =  (  eO  e2  e4  eB  e9  ell  el3  el4  } 

530  =  {  cO  e4  e6  e7  e9  ell  el2  cl5  ) 

531  -  (  eO  el  e4  e5  el2  el3  el4  el5  } 

532  3  (  eO  e2  e3  e4  eS  elO  el2  el5  } 

533  =  {  eO  e3  e4  e6  e7  elO  el3  el4  } 

534  3  (  eO  el  e2  e3  e4  e5  e6  e7  e8  e9  elO  ell  el2  el3  el4 

el5  )  74 


UNKNOWN  GROUP  (q4xz4) 


The  ELEMENTS  are  the  following: 


eO  Is 
el  = 
e2  = 
e3  = 
e4  = 
e5  = 
e6  : 
e7 
ea 
e9 
elO 
ell 
el2 
el3 
el4 
el5 


the  Identity 
(  7  16  15  14 

(  4  10  13  16 

(  14  16  )  (  11 
(  7.  14  15  16 

(  10  16  )  (  9 

(  4  16  13  10 

(  4  5  13  7  )  ( 
(  4  9  13  15  ) 
(  7  10  15  8  ) 
(  4  7  13  5  ) 
(  4  15  13  9 
.(  4  a  13  14 


element 

)  (  6  13  12  11  )  (  5  10  9  8  )  (  1  4  3  2  ) 

)  (  3  5  12  7  )  (  2  8  11  14  )  (  1  9  6  15  ) 

13  )  (  8  10  )  (  7  15  )  f  6  12  )  (  5  9  )  (  2  4 


=  (  10  14  )  (  a 


4  14  13  8 
7  a  15  10 


)  ( 


)  (  6  1 1  12  13  )  (  5  8  9  10  )  (  1  2  3  4  ) 

15  )  (  8  14  )  (  5  7  )  (  4.  13  )  (  3  12  )  (  2  11  )( 

)  (  3  7  12  5  )  (  2  14  1 1  8  )  (  1  15  6  9  ) 

3  a  12  14  )(  2  9  11  15  )(  1  10  6  16  ) 

(  3  10  12  16  )  (  2  5  11  7  )  (  1  8  6  14  ) 

(  5  16  9  14  )  (  2  6  4  12  )  (  1  13  3  11  ) 

(  3  14  12  a  )(  2  15  11  9  )(  1  16  6  10  ) 

){  3  16  12  10  )(  2  7  11  5  )(  1  14  6  8  ) 

)  (  3  9  12  15  )  (  2  10  11  16  )  (  1  5  6  7  ) 

16  )(  7  9  )(  5  15  )(  4  11  )(  3  6  ){  2  13  )( 
)  (  3  15  12  9  )  (  2  16  1 1  10  )  (  1  .7  6  5  ) 

)  (  5  14  9  16  )  (  2  12  4  6  )  (  1  11  3  13  ) 


The  subgroups  are  the  following: 


50  is  the  null  subgroup 

51  =  {  eO  e3  ) 

52  =  {  eO  e5  } 

53  =  {  eO  el3  ) 

54  =  {  eO  el  e3  e4  } 

55  -  (  eO  e2  e5  e6  } 

56  =  (  eO  e5  e7  elO  } 

57  *  (  eO  e5  eS  ell  } 

58  =  (  eO  e3  e9  el5  } 

59  =  {  eO  e5  el2  el4  } 

510  =  (  eO  e3  e5  el3  ) 

511  -  {  eO  el  e3  e4  e5  e9  el3  el5  } 

512  =  {  eO  e2  e3  e5  e6  el2  el3  el4  } 

513  »  (  eO  e3  e5  e7  e8  elO  ell  el3  } 

514  -  (  eO  el  e2  e3  e4  e5  e6  e7  e8  e9  elO  ell  el2  el3  el4 

el5  ) 


1  3  ) 
1  6  ) 


1  12  ) 
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UNKNOWN  GROUP  (wpd4z4) 


The  ELEMENTS  are  the  following; 


eO  is  the  identity  element 

el  *  (  13  16  15  14  )(  6  12  10  8  ) (  5  1 1  9  7  ) (  1432) 
e2  «  (  7  12  11  8  )  (  5  10  9  6  )  (  2  14  4  16  )  (  1  13  3  15  ) 

e3  =  (  7  13  11  15  ) (  5  16  9  14  ) (  2  10  4  6  ) (  1  8  3  12  ) 

e4  =  (  1.4  16  )  (  13  15  }  (  a  12  )  (  7  11  )  (  6  10  )  (  5  9  )  (  2  4  )  ( 

e5  =  (  13  14  15  16  )(  6  8  10  12  )(  5  7  9  11  )(  1  2  3  4  ) 

e6  =  (7811  12  ) (  5  6  9  10  ) (  2  16  4  14  ) (  1  15  3  13  ) 
e7  =  (  7  15  11  13  )  (  5  14  9  16  )  (  2  6  4  10  )  (  1  12  3  8  ) 

e8  *  (  9  12  )(  7  10  )(  6  11  )(  5  a  )(  4  15  )(  3  14  )(  2  13  )( 

e9  =  (  10  1 1  ) (  8  9  ) (  6  7  ) (  5  12  ) (  4  13  ) (  3  16  ) (  2  15  ) ( 
elO  =  (  11  14  )(  9  13  )(  7  16  ) (  5  15  ) (  4  12  ) (  3  10  ) (  2  8  ) 

ell  *  (  11  16  )(  9  15  ) (  7  14  ) (  5  13  ) (  4  a  ) (  3  6  ) (  2  12  )( 

el2  =  (  8  13  12  15  )  (  6  16  10  14  )  (  2  5  4  9  )  (  1  1 1  3  7  ) 

el3  =  (  8  15  12  13  )  (  6  14  10  16  )  (  2  9  4  5  )  (  1  7  3  11  ) 

el4  =  (  12  14  )  (  10  13  )  (  a  16  )  (  6  15  )  (  4  7  )  (  3  5  )  (  2  1 1  ) 

el5  =  (  12  16  ) (  10  15  ) (  a  14  ) (  6  13  ) {  4  11  ) (  3  9  ) (  2  7  ) 


The  subgroups  are  the  following: 


SO 

is 

the 

null  subgroup 

SI 

= 

{ 

eO 

e4  } 

S2 

s 

{ 

eO 

eS  } 

S3 

{ 

eO 

e9  } 

S4 

= 

{ 

eO 

elO  ) 

S5 

3 

{ 

eO 

ell  ) 

S6 

S 

{ 

eO 

el4  } 

S7 

3 

{ 

eO 

el5  } 

S8 

S 

{ 

eO 

el  e4  s5  ) 

S9 

3 

{ 

eO 

e2  e4  e6  } 

SIO 

S 

{- 

eO 

e3 

e4 

e7  } 

SI  1 

= 

{ 

eO 

e4 

el2 

el3  ) 

S12 

3 

{ 

eO 

e4 

e6 

e9  ) 

S13 

3 

{ 

eO 

e4 

elO 

ell  ) 

S14 

= 

{ 

eO 

e4 

el4 

el5  ) 

S15 

S 

( 

eO 

el 

e2 

e4  e5  e6  e6  e9  } 

S16 

s 

{ 

eO 

e  1 

e3 

e4  eS  e7  elO  ell  } 

S17 

3 

{ 

eO 

e2 

e3 

e4  s6  e7  el2  el3  } 

S18 

3 

{ 

eO 

e2 

e4 

e6  elO  ell  el4  el5 

) 

S19 

3 

{ 

eO 

e3 

e4 

e7  ea  a9  el4  el5  } 

S20 

3 

{ 

eO 

e4 

e8 

e9  elO  ell  el2  el3 

) 

S21 

S 

{ 

eO 

e  1 

e4 

e5  el2  el3  el4  el5 

> 

S22 

s 

{ 

eO 

e  1 

e2 

e3  e4  eS  e6  e7  e8 

e9  elO  ell  el2  el3  el4 

el5  ) 


i  3  ) 


1  16  ) 

1  14  ) 
(16) 
1  10  ) 


(19) 

(15) 
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UNKNOWN  GROUP  (dpd4d4) 


The  ELEMENTS  are  the  following: 


eO  is  the  identity  element 


e  1 

=: 

( 

7  14  15 

16  ) 

(  6 

1 1  12  13  )(  5  a  9  10 

)  ( 

1  2  3 

4  ) 

e2 

( 

12  16  )  ( 

9  13  ) 

(  6  14  )  (  5  11  )  (  4  15 

)  ( 

3  10 

)  ( 

2 

7 

) 

( 

e3 

= 

( 

14  16  )  ( 

1 1 

13 

)  {  8  10  )  (  7  15  )  (  6  12  )  (  5  9 

)  ( 

2 

4 

) 

( 

e4 

s 

( 

7.  16  15 

14  ) 

(  6 

13  12  11  )  {  5  10  9  8 

)  ( 

1  4  3 

2  ) 

eS 

= 

( 

4  8  13  14  )  ( 

3 

15  12  9  )(  2  10  1 1  16 

)  ( 

1  7  6 

5  ) 

e6 

= 

( 

4  16  13 

10  ) 

(  3 

5  12  7  ){  2  14  1 1  a  ) 

(  1 

9  6 

15  ) 

e7 

= 

( 

12  14  ) ( 

9  11  ) 

(  6  16  )  (  5  13  )  (  4  7 

)  ( 

3  8  ) 

(  2 

15  ) 

( 

e8 

= 

( 

13  15  )  ( 

10 

12 

)(711)(68)(49 

)  ( 

3  16 

)  (  2 

5  ) 

( 

e9 

= 

( 

4  10  13 

16  ) 

(  3 

7  12  5  )(  2  a  1 1  14  ) 

(  1 

15  6 

9  ) 

elO 

= 

(  4  14  13 

8  ) 

(  3 

9  12  15  )(  2  16  1 1  10 

)  ( 

1  5 

6  7 

) 

ell 

= 

(  11  15  ) 

(  a 

12 

)  (  7  13  )  (  6  10  )  (  4  5 

)  ( 

3  14 

)  ( 

2 

9 

) 

( 

el2 

= 

(  7  10  15 

a  ) 

(  5 

16  9  14  )(  2  6  4  12  ) 

(  1 

13  3 

1 1 

) 

el3 

(  10  16  ) 

(  9 

15 

)  (  a  14  )  (  5  7  )  {  4  13 

)  ( 

3  12 

)  ( 

2 

1 1 

) 

el4 

= 

(  7  8  15 

10  ) 

(  5 

14  9  16  )(  2  12  4  6  ) 

(  1 

11  3 

13 

) 

el5 

= 

(  10  14  ) 

{  a 

16 

)  (  7  9  )  (  5  15  )  (  4  11 

)  ( 

3  6 

)  (  2 

13 

) 

( 

The  subgroups  are  the  following: 

50  is  the  null  subg'.'oup 

51  =  {  eO  e2  } 

52  =  {  eO  e3  } 

53  =  {  eO  e7  } 

54  =  {  eO  eS  } 

55  =  {  eO  ell  > 

56  =  {  eO  el3  } 

57  =  {  eO  el5  > 

Sa  =  {  eO  el  e3  e4  } 

SS  =  {  eO  e5  elO  el3  } 

SIO  =  {  eO  e6  e9  el3  } 

SI  1  =  {  eO  e3  el2  el4  } 

512  =  {  eO  e2  e3  e7  } 

513  =  {  eO  e2  eS  el3  } 

514  =  {  eO  e3  eS  ell  ) 

515  =  {  eO  e2  ell  el5  } 

516  =  {  eO  e3  el3  el5  ) 

517  =  {  eO  e3  e5  e6  e9  elO  el3  el5  ) 

518  =  {  eO  el  e3  e4  el2  el3  el4  el5  ) 

519  =  {  eO  e2  e3  e7  e8  ell  el3  el5  > 

520  =  {  eO  el  e2  e3  e4  e5  e6  e7  e8  e9  elO  ell  el2  el3  el4 

el5  } 


1  8  ) 

1  3  ) 

1  10  ) 

1  14  ) 

1  16  ) 
(16) 
112) 


77 


APPENDIX  B 


ABSALGMM.C  -  The  main  menu  for  the  Abstract  Algebra  Programming 
System. 

ABSALGMP.C  -  This  program  is  the  print  menu  for  the  Abstract 
Algebra  Programming  System. 

ABSALGMG.C  -  This  program  is  the  Group  Generation  menu  for  the 
Abstract  Algebra  Programming  System. 

ABSALGLDG.C  -  This  program  produces  the  generators  for  dihedral 
groups  for  the  Abstract  Algebra  Programming  System. 

ABSALGCG.C  -  This  program  produces  the  generators  for  cyclic 
groups  for  the  Abstract  Algebra  Programming  System. 

ABSALGAG.C  -  This  program  accepts  permutations  from  a  user  for 
the  abelian  group  generation  for  the  Abstract  Algebra  Programming 
System. 

ABSALGUG.C  -  This  program  accepts  permutations  from  a  user  for 
the  unknown  group  generation  for  the  Abstract  Algebra  Programming 
System. 

ABSALGIN.C  -  This  program  initializes  the  external  arrays. 

ABSALGCG.C  -  Canonical  Formatter  Program  for  the  Abstract  Algebra 
Programming  System. 

ABSALGPO.C  -  This  program  prints  out  the  generating  elements 
produced  by  the  different  generating  programs  -  Groupd,  Groupc, 
Groupa,  and  Groupg. 

ABSALGIF.C  -  Internal  Formatter  for  the  Abstract  Algebra 
Programming  System. 

ABSALGFR.C  -  File  read  data  program  for  the  Abstract  Algebra 
Programming  System. 

ABSALGPS.C  -  Write  data  to  either  the  printer  or  screen  for  the 
Abstract  Algebra  Programming  System. 

ABSALGOS.C  -  Orders  the  subgroup  data  from  lowest  order  to 
highest  order  for  the  Abstract  Algebra  Programming  System. 

ABSALGDW.C  -  Dihedral  write  data  program  for  the  Abstract  Algebra 
Programming  System. 

ABSALGCW.C  -  Cyclic  write  data  program  for  the  Abstract  Algebra 
Programming  System. 


ABSALGAW.C  -  Abelian  write  data  program  for  the  Abstract  Algebra 
Programming  System. 

ABSALGUW.C  -  Unknown  write  data  program  for  the  Abstract  Algebra 
Programming  System. 

ABSALGGD.C  -  Group  Generator  Driver  Program  for  the  Abstract 
Algebra  Programming  System. 

ABSALGAN.C  -  Basic  Permutation  Raised  to  a  Power  Program  for  the 
Abstract  Algebra  Programming  System. 

ABSALGSS.C  -  Subgroup  Sorter  Program  for  the  Abstract  Algebra 
Programming  System. 

ABSALGAS.C  -  Adds  generated  subgroups  to  the  list  of  subgroups 
for  the  Abstract  Algebra  Programming  System. 

ABSALGKG.C  -  Check  Subgroups  for  Existence  Program  for  the 
Abstract  Algebra  Programming  System. 

ABSALGAB.C  -  Multiplier  of  two  permutations  for  the  Abstract 
Algebra  Programming  System. 

ABSALGPM.C  -  (Disjoint)  Basic  Permutation  Multiplier  for  the 
Abstract  Algebra  Programming  System 

ABSALGSI.C  -  Singleton  Search  and  Deletion  Program  for  the 
Abstract  Algebra  Program  System. 

ABSALGKE.C  -  Element  Checker  for  the  Abstract  Algebra  Programming 
System. 
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ABSALGMH.C  -  The  main  menu  for  the  Abstract  Algebra  Programning  System 

This  program  presents  the  user  with  a  menu.  The  program  then  passes 
control  to  that  system. 

This  program  defines  the  global  variables  subsets,  internal_form. 

*/ 

char  subsets  1273] [203] ,  internal_formt155] ; 

void  group_generation( ); 
void  print_menu(); 

mainO 

{ 

char  option[2],  ch.- 
do 

C 

optionlO]  s  '\0'; 
clrscrO; 

printfl''\n\n\n\n\n\n\n\n"); 

printf<"X53s",  “PERMUTATION  PROGRAM  MAIN  MENU"); 
printf<"\n\n\n"); 

printf ("XA9s",  "Option  1  -  Group  Generation"); 
printf("\n\n"); 

printf ("X56s",  "Option  2  -  Print  a  Generated  Group"); 
printf("\n\n"); 

printf ("5iA5s",  "Option  3  -  Exit  Program"); 
printf  ("\n\n\n'‘); 

printf ("/I37s",  "Enter  Option  and  Press  Enter:  "); 
getsloption); 

switch(*option) 

case  M': 

group_gener8t i on( ) ; 
break; 

case  '2' : 

print_menu(); 

break; 

case  '3': 
optionlO]  »  '\0'; 


/’ 


ABSALGMP.C  -  This  program  is  the  print  menu  for  the  Abstract  Algebra 
programming  system. 

This  presents  the  user  with  a  Print  Menu.  The  user  choses  the  type  of 
group  they  want  printed.  The  program  then  passes  control  to  that  system. 


extern  char  subsets [273] [203] ,  internal_form[155] ; 

#inctude  "string. h" 

void  f  i  le_read(char  elements[]  [] ,  char  *,  char  *,  char  abelian[],  char  unicnown[]); 

void  print_menu() 

{ 

char  choice[3],  dihedral [4],  cyclic[4]; 

char  elements [203] [155] ,  unknown[8],  abelian[8]; 

int  i,  j,  n; 

/• 

The  following  while  loop  will  execute  as  long  as  choice 
does  not  return  a  NULL  value,  i.e.  '\0' 

*/ 

do 

< 


clrscrO; 

pr i nt  f ( " \n\n\n\n\n" ) ; 
printf("X40s",  "PRINT  MENU"); 
printf("\n\n\n"); 

printf("X50s",  "Option  1  for  DIHEDRAL  GROUPS"); 
printf<"\n\n"); 

printf("X48s",  "Option  2  for  CYCLIC  GROUPS"); 
printf("\n\n"); 

printf("X49s",  "Option  3  for  ABELIAN  CROUPS"); 
printf("\n\n"); 

printf("X49s",  "Option  4  for  UNKNOWN  GROUPS"); 
printf("\n\n"); 

printf("X43s",  "Option  5  EXIT  PROGRAM"); 
printf("\n\n\n"); 

printf ("X37s",  "Enter  Option  and  press  ENTER:  "); 
gets(cho{ce); 
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gwitch(*choice) 

< 


/*  case  statement  */ 


case  ' 1 ' : 
do 


< 

clrscrO; 

dihedral [0]  »  '\0'; 

cyclic [0]  =  '\0'; 

abelianlul  »  '\0'; 

unknoMnCO]  «  '\0'; 

pr  i  nt  f ( “ \n\n\n\n\n\n\n" ) ; 

printf(“X25s“,  ‘‘DIRECTIONS:"); 

printf(“\n\n\n"); 

printf(‘‘/460s“,  “Enter  the  mmber  of  the  Dihedral  Group"); 
printf<‘‘\n\n‘‘); 

printf(“5i51s“,  "after  the  'D'  and  press  ENTER"); 
printf<‘‘\n\n“); 

printf(‘‘)i468“,  “To  exit  just  press  ENTER"); 

printf("\n\n"); 

printf(“X248",  "D  “); 

gets(dihedral); 

if ("dihedral) 

( 

f ile_re8d{elements,  dihedral,  cyclic,  abelian,  unknown); 
} 

> 

whi le(*dihedral ); 
break; 


case  '2': 
do 

{ 

clrscrO; 

dihedral [OJ  ■  '\0'; 

cyclic  CO]  =  '\0'; 

abelian  CO]  >  '\0'; 

unknown  CO)  ■  '\0'; 

pr i nt  f ( " \n\n\n\n\n\n\n" ) ; 

printf{‘‘)[258",  "DIRECTIONS:"); 

printf(‘'\n\n\n"); 

printf<"XS88'‘,  “Enter  the  nimber  of  the  Cyclic  Group"); 
printf("\n\n"); 

printf<"X5l8‘',  "after  the  'C'  and  press  ENTER"); 
printf("\n\n‘'); 

printf(‘‘X468",  "To  exit  just  press  ENTER"); 

printf("\n\n"); 

printf("X24s",  "C  "); 

getsCcyclic); 
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if{*eyclie) 

< 

f Ue_re8d(elements,  dihedral,  cyclic,  abelian,  unknown); 

> 

> 

whi le(*cyclic); 
break, - 

case  '3': 
do 

< 

clrscrO; 

dihedral  CO]  «  '\0'; 

cyclic COJ  =  '\0'; 

abelianCOl  ^  '\0'; 

unknowntO]  =  '\0'; 

pr i nt  f ( “\n\n\n\n\n\n\n“ ) ; 

printf("X25s“,  "DIRECTIOtlS:"); 

printf("\n\n\n"); 

printf (‘'X60s",  "Enter  the  first  seven  characters  of"); 
printf ("\n\n“); 

printfC'XSfls",  "the  Abelian  group  file  natne  after"); 
printf ("\n\n"); 

printf("X49s",  "the  '*•  and  press  ENTER."); 
printf("\n\n"); 

printf{"X50s",  "To  exit  just  press  ENTER."); 

printf(“\n\n“); 

printf("X27s",  "*  "); 

gets(sbelian); 

if<*abelian) 

< 

f i le_re8d( elements,  dihedral,  cyclic,  abelian,  unknown); 

> 

> 

whi le(*abel ian); 
break ; 

case  'W: 
do 

< 

clrscrO; 

dihedral  CO]  =  '\0'; 

eye  lie  CO]  *  '\0'; 

abelianCO]  =  '\0'; 

unknowntO]  »  '\0'; 

pr i nt f ( "\n\n\n\n\n\n\n" ) ; 

printf ("«58",  "OIRECTIONS:"); 

pr i nt  f ( "\n\n\n" ) ; 

printf("!l60s",  "Enter  the  first  seven  characters  of"); 
printf<"\n\n"); 
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printfC'XSSs'',  “the  Unknown  group  file  name  after"); 
printf("\n\n"); 

printf("X«99“,  "the  •*'  and  press  ENTER."); 
printf("\n\n"); 

printf (“X50s",  "To  exit  just  press  ENTER."); 

printf("\n\n"); 

printf("X27s",  "•  «); 

gets(unknown); 

if<*unknown) 

f { le_read(elements<  dihedral,  cyclic,  abelian,  unknown); 

> 

> 

whi le(*unknoun); 
break ; 

case  '5': 
printfC'exit"); 
choiceCO]  =  '\0»; 
break; 

default: 

break; 

> 

> 

whi le(*choice); 

) 
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/* 

ABSALGMG.C  -  This  program  is  the  Group  Generation  menu  for  the  Abstract 
Algebra  programning  system. 

This  presents  the  user  with  a  Menu.  The  user  choses  the  type  of  group 
they  want  generated.  The  program  then  passes  control  to  that  system. 

*/ 

extern  char  subsets [273] C203] ,  internal_form[155]; 

void  dihedral_generation(char  elementsC] [] ,  char  •); 
void  cyclic_generation(char  elementsC] [] ,  char  *); 
void  unknown_generation(char  elementsC] [] ); 
void  abelian_generation(char  elementsC]  []); 

void  group_generation() 

< 

char  choiceC3],  dihedral  [4],  cyclicCA],  abetianC4]; 
char  elements [203] C1SS1 ; 
int  i,  j,  n; 

/• 

The  following  while  loop  will  execute  as  long  as  choice 
does  not  return  a  NULL  value,  i.e.  '\0' 

*/ 

do 

< 

clrscrO; 

pr  i  nt  f  ( ''\n\n\n\n\n" )  ; 

printfC'XASs",  "GRCXJP  GENERATION  MENU"); 

printf("\n\n\n"); 

printfC'XSOs",  "Option  1  for  DIHEDRAL  GROUPS"); 
printf ("\n\n"); 

printf<"X48s",  "Option  2  for  CYCLIC  GROUPS"); 
printf("\n\n"); 

printf<"XA9s",  "Option  3  for  ABELIAN  GROUPS"); 
printf("\n\n"); 

printf("X49s",  "Option  4  for  UNKNOWN  GROUPS"); 
printf("\n\n"); 

printf("X43s",  "Option  5  EXIT  PROGRAM"); 
printf("\n\n\n"); 

printf("X37s",  "Enter  Option  and  press  ENTER:  "); 
gets(choice); 
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8witch{*choice)  /*  case  statement  */ 

{ 

case  ' 1 ' : 
do 

( 

clrscrO; 

dihedral  CO]  «  '\0'; 
pr i nt  f ( “\n\n\n\n\n\n\n“ ) ; 
printf(“X258“,  "OIRECTIONS:"); 
printf ("\n\n\n“); 

printf(“X608",  “Enter  the  nudser  of  the  Dihedral  Group"); 
printf<''\n\n"); 

printfC'XSIs",  “after  the  'D'  and  press  ENTER"); 
printf(“\n\n“>; 

printf("X468“,  “To  exit  just  press  ENTER"); 

printf<"\n\n"); 

printf<"X24s",  "0  "); 

geCsCdihedral); 

if (•dihedral) 

< 

di hedra l_genera t i on( e I ements ,  dihedral); 

> 

uhi le(*dihedral); 
break; 


case  '2': 
do 

{ 

clrscrO; 

cyclicCO)  =  '\0'; 

pr i nt  f ( "\n\n\n\n\n\n\n“ ) ; 

printf(")258",  “DIRECTIONS:"); 

pr1ntf("\n\n\n"); 

printf<")l588",  "Enter  the  mmber  of  the  Cyclic  Group"); 
printf("\n\n"); 

printfC'XSIs",  "after  the  'C'  end  press  ENTER"); 
printf("\n\n"); 

printf ("X468",  “To  exit  just  press  ENTER"); 

printf("\n\n"); 

printf<">a48",  "C  "); 

gets(cyclic); 

if<*cyclic) 

( 

eye I i c_senerat i on( e I ements ,  eye  I i c ) ; 

> 

) 
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Hhile(*cycUc); 

break; 

case  '3': 

abe  I  i  an_generat  i  on(  e  t  ements ) 
break; 

case  '4'; 

unknown_genera t i on( e I ement s ) 
break; 

case  '5': 
choice  CO]  *  '\0'; 
break; 

default: 

break; 

> 

> 

Hhi le(*choice); 

> 
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/• 

AfiSALGOG.C  -  This  program  produces  the  generators  for  dihedral  groups  for 
Abstract  Algebra  Programning  System 


*/ 


extern  char  subsets [273] [203] ,  internal_formC1551; 

#include  "stdlib.h" 
div_t  x; 


void  initializelchar  elements []  tl ); 

void  permutation_out(chBr  elementsC]  Cl ); 

void  dihedral_f i le_wri teCchar  elementsC] Cl ,  char  *); 

void  canonical_formatter{); 

void  Hork_driver(char  elementsC! Cl ,  int  *); 

void  screen _printer_Hri teCchar  elements  Cl  Cl ,  char  char  *,  char  *,  char  *); 

void  dihedral_generation(elements,  dihedral) 
char  elements C2031 C155] ,  dihedral C41; 

< 

char  return_charC3] ,  ddunnyl  C4] ,  dduniny2C8],  ddLniTiy3 C81  ; 
int  i,  j,  n,  m,  dihedral_length,  dihedral_value,  order; 
int  dnax  =  101,  dmin  =  2,  left_paren  =  -1; 


initializeCelements); 
order  =  0; 

i  =  0;  j  =  1; 

dihedral eng th  =  strlen(dihedral); 
if(dihedral_length  !=  0); 

C 

clrscrO; 

sscanf C&dihedral Ci] ,  "Xd",  &dihedral_value}; 
if (dihedral_value  >  dmin  &&  dihedral_value  <  dmax) 
< 

elements  CO] CO]  =  dihedral_V8lue; 
elements  CO]  Cl]  *  '\0'; 

X  =  di v(dihedral_value,  2); 

/•  building  the  first  generator  */ 

internal_formCi]  =  left_p8ren; 

♦♦i; 

whileCi  *=  dihedral  value) 
f 

internal^formCi]  =  i; 
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++i; 

J 

internal_forin[i)  *  '\0'; 
strcpyCelementsCj],  interna l_for«); 
internal_form[01  =  '\0'; 

♦♦j;  i  »  0; 

internal_forni[i]  =  left  jjaren; 

++i; 

/*  building  the  second  generator  */ 

iffx.rem  ==  0)  /*  dihedral_value  is  even  */ 

< 

m  =  1; 

n  =  dihedral_value; 
whi  le(ni  <  n) 

{ 

internal_form[i3  =  n; 

++i;  ♦♦m; 

internal_forni[iJ  =  n; 

++i;  --n; 

internal_formti)  *  left_paren; 

> 

interna  l_forBiCiJ  =  '\0'; 

> 

else  /*  dihedral_velue  is  odd  */ 

< 

m  »  2; 

n  »  dihedral_value; 
whilefm  <  n) 
i 

internal_foniilil  *  m; 

♦♦i;  **m; 

internal_foniiti]  =  n; 

♦♦i;  --n; 

internal_forin[iJ  =  left_paren; 

♦♦i; 

> 

--i; 

internal_fornilij  =  '\0'; 

> 

canonical_forinatter(); 

StrcpyCelementsCj],  internal_form); 
interna l_form[0]  *  '\0'; 

printf("\n\n\nThe  DIHEDRAL  GROUP  GENERATORS  are:\n\n''); 
permutat 1 on_out ( e laments) ; 
order  =  3; 

work_driver(elements,  (order); 
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dihedral_ffle_Hrite<element8,  dihedral); 
clrscrO; 

return_char tOl  »  '\0'; 

printf("\n\n\nTo  view  the  elements  and  8ubflroups\n\n"); 
printfC'Enter  any  alpha-key  and  press  ENTER"); 
printf("\n\nEl8e  press  ENTER  to  continoe\n\n"); 

8ets{return_char); 
if(return_charCO]  I*  '\0') 

C 

dduimyltOJ  «  '\0'; 
dduimyZtO]  »  '\0'; 
dduimySlO]  ■  '\0'; 

screen_printer_write(element8,  dihedral,  ddunmyl,  ddumtny2,  ddutimyS); 

> 

) 

else 

C 

printf("\n\n\nThe  entered  value  of  Xd  is  either  <  3  or  >  100", 
dihedral_value); 

printf("\n\nPress  ENTER  to  continue"); 
gets(return_char); 


92 


/* 

ABSALGCG.C  -  This  program  produces  the  generators  for  cyclic  groups  for 
Abstract  Algebra  Programming  System 

V 

extern  char  subsets [273] [203] ,  internal_forffl[155]; 


void  initializeCchar  elements [][]  ); 

void  perinutation_out(char  elemental]  [] ); 

void  cyclic_file_write(char  elemental] (] ,  char  *); 

void  c8nonical_formatter(); 

void  work_driver(char  elementsd  [],  int  *); 

void  screen_printer_write(char  elemental] [] ,  char  *,  char  •,  char  *.  char  *) 

void  cyclic_generation(elements,  cyclic) 
char  elements [203] [155] ,  cycliclA]; 

< 

char  return_char[2] ,  cdunnyl  [4] ,  cdunfny2C8],  cdiinny3[&]; 
int  i,  j,  n,  m,  cycl1c_length,  cyclic_value,  order; 
int  dmax  =  101,  dmin  «  2,  left_paren  =  -1; 


initialize(elements); 
order  ®  0; 
i  =  0;  j  *  1; 

cyclic_length  *  strlen(cyclic); 
if<cyclic_length  1=  0); 

< 

clrscrO; 

sscanfl&cyclicli] ,  "Xd",  icyelic_value>; 
if(cyclic_v8lue  >  dnin  M  cyclic_value  <  dnax) 
{ 

elements [0] [0]  =  cyclic_value; 
elementslO] [1]  »  '\0'; 

/•  building  the  only  generator  */ 

internal_form[i]  »  left_paren; 

♦+i; 

whiled  <=  cyclic_v8lue) 

< 

internal_form(i]  «  i; 

++i; 

) 

internal_form[i]  *  '\0'; 
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strcpy(elwn«nt8Cjl .  internal^form); 

<nternal_fonnCO]  »  '\0'; 
i  *  0; 

printf(»\n\n\nThe  CYCLIC  GROUP  GENERATOR  is:\n\n"); 
pennut a t < on_out ( e I enent s ) ; 
order  »  2; 

work_drivcr(eleawnt8,  torder); 
cycl1c_f i le_wr iteCelenents,  cyclic); 
clrscrO; 

return_char [0]  =  '\0'; 

printf("\n\n\nTo  view  the  elements  and  subgroups\n\n''}; 
printfC'Enter  any  alpha-key  and  press  ENTER”); 
printf(“\n\n£lse  press  ENTER  to  continue\n\n"); 
get8(return_char); 
if(return_charCO)  !■  '\0') 

< 

cdunmylCOl  ■  '\0'; 
cdijnny2C0]  =  '\0'; 
cduiiny3(0]  ■  '\0'; 

screen _printer_write(elafflants,  cduaayl,  cyclic,  cdunniy2,  cdumyS) 

> 

> 

else 

< 

printf<“\n\n\nThe  entered  value  of  Xd  is  either  <  3  or  >  100”, 
cyclic_value); 

printf(“\n\nPress  ENTER  to  continue”); 
getsl return_char ) ; 

> 

) 

> 
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/* 


ABSALGAS.C  -  This  program  accepts  penautationa  from  a  user  for  the 
abelian  group  generation  for  the  Abstract  Algebra  Prograaning  System. 

*/ 

extern  char  subsets  [273H203] ,  internal_forfflt155]; 

void  1n1t1al1ze(char  elementstl  Cl ); 

Int  1nternal_fonnat(char  permu_1nt]>; 
void  permutat1on_out(char  elements  Cl tl); 
void  cheek_elements(ehar  elementsCH],  Int  •,  int  *); 
void  Horlc_dr1ver(char  elementsCH],  Int  *); 

void  abel1an_f1le_ur1te(char  elementaCl  C] ,  char  abelian_f1le_naaie[]); 
void  screen jsrinter_write{char  elementstl Cl ,  char  *,  char  *,  char  *,  char  *); 

void  abel1an_generat1on(element8) 
char  elementsC2031 C155]; 

{ 

char  perinu_int81],  return_chart2] ,  abel1an_f  1le_namet8]; 
char  adirmyl  t41 ,  adunny2  C4] ,  adiinny3  C81 ; 

Int  1,  good_bad,  order,  new_order,  elefflent_n(jrber; 
int  number_of_element8_1nput; 

order  =1;  neM_order  *  1; 
n(jnber_of_elefflents_input  =  7; 

InitlallzeCelements); 

clrscrO; 

printf(''\n\n''); 

pr  1  ntf ( "X25s'' ,  “D I RECT IONS : ; 
printf C"\n\n\n"); 

printf("X678",  "When  prompted  with  a  enter  a  permutation"); 
printf ("\n"); 

printfC'XbSs",  "in  cycle  notation.  Use  'O'  as  delimiters."); 
printf<"\n"); 

printf("X658",  "Enter  only  interger  values  <i)  in  the  range"); 
printf<"\n"); 

printf ("%658",  "0  <  i  <  128.  Place  a  space  between  each  i,"); 
printf("\n"); 

printf<"X6l8",  "For  Example:  <1  34  5)(23  127  2)."); 
printf<"\n\n"); 

printf ("*678",  "A  PERMUTATION  MAY  ONLY  BE  80  CHARACTERS  LONG."); 
printf("\n"); 

printf("X69s",  "NOTE;  A  GROUP  MAY  HAVE  A  TOTAL  OF  128  ELEMENTS."); 
printf ("\n\n"); 

printf{"5{678",  "Press  ENTER  when  the  permutation  is  complete."); 
printf("\n"); 

printf ("51658",  "To  end  entry  press  ENTER  with  a  null  input."); 
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printf("\n\n'*); 

putch('*'); 

S«ts(penau_in); 

1-0; 

Mhfle(*perinu_in) 

lf(nuraber_of_eleBients_input  l»  0) 

< 

if (permu_intil  «  '<*) 

< 

sood_bad  <■  intertMl_foniMt(p*rau_1n>; 

{f(good_bael) 

C 

check_eleflients(elenient8,  tMW_orcler,  &eleinent_nuniber}; 
if<ofder  !■  ne«_order) 

< 

-  -ntJi<jdP_of_«  I  efflents_i  nput ; 
order  ■  new_order; 
clrecrO; 

> 

else 

t 

printf(“\n\n"); 

pr{ntf(''X698'',  “The  above  permutation  has  already  been  en 

tered.*'); 

printf{“\n\n"); 

pr{ntf(“X628“,  “Press  ENTER  to  reenter  your  permutation." 

); 

gets( return_char ) ; 

> 

> 

> 

else 

< 

printf<"\n\n">; 

printf( “51638“,  “The  first  element  of  entry  must  be  a 
printfC'XnNn"); 

printf(“562s“,  “Press  ENTER  to  reenter  your  permutation."}; 
gets<  return_ch8r ); 

) 

clrscrO; 

printfC'This  is  the  canonical  form  "); 
printf<“of  the  permutations  you  enteredXn"); 
permutation_out(elements}; 
if(ntjnber_of_eleirent8_inpgt  •=  0) 

< 

printf<"\n“); 

printfC'XZSs",  “DIRECTIONS:"); 
printf<"\n\n"); 

printf ("X678",  “When  prompted  with  a  enter  a  permutation"); 
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printf(“\n">; 

prfntf("X658“,  “in  cycle  notation.  Use  'O'  as  delimiters."); 
printfC'W); 

printf(")l65s",  "Enter  only  interger  values  (i)  in  the  range"); 
printf("\n"); 

printf("X658",  "0  <  i  <  128.  Place  a  space  between  each  i,"); 
printf<"Vn“); 

printf<"X6l8*,  "For  Example:  (1  34  5)(23  127  2)."); 
printf<"\n\n">; 

printf("X678".  "A  PERMUTATION  HAY  ONLY  BE  SO  CHARACTERS  LONG."); 
printf("\n“>; 

prlntf("X69s",  "NOTE:  A  GROUP  MAY  HAVE  A  TOTAL  OF  128  ELEMENTS."); 
printf("\n\n"); 

printf ("11678",  "Press  ENTER  when  the  permutation  is  complete."); 
printf<"\n"); 

printf{"X65s",  "To  end  entry  press  ENTER  with  a  null  input."); 

printf("\n\n“); 

puteh('*'); 

get8(pennu_in); 

> 

else 

{ 

printf("\n\n"); 

printf("X658",  "You  have  entered  the  max  nurber  of  permutations."); 
printf("\n\n"); 

printf("1B3s",  "Press  ENTER  to  generated  the  group.  "); 

gets(return_char); 

permu_in(0J  =  '\0'; 

> 

> 

else 

{ 

printf("\n\n"); 

printf<")!67s",  "You  may  only  enter  e  total  of  7  permutations."); 
printf("\n\n"); 

printf(")l62s",  "Press  ENTER  for  the  program  to  continue."); 
gets( return_char); 
permu_inC0]  =  '\0'; 

> 

) 

if<number_of_ele(nent8_input  <  7) 

{ 

work_driver(elefflents,  Aorder); 
clrscrO; 

pr i nt  f ( "\nVn\n\n\n" ) ; 

printf ("At  the  *,  please  enter  up  to  seven  (7)  characters  for  a  f i lename.\n\n"); 
printfC'NOTE:  00  NOT  ENTER  THE  PERIOD  AND  THREE  CHARACTER  EXTENSION.\n\n"); 
printf("X25s",  "*  »); 
get s ( abe I i an_f i I e_name ) ; 

abel  ian_f  i  le_write(element8,  abelian_f ile_nafne); 
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clrscrO; 

return_char[0]  =  '\0'; 

printf<"\n\n\nTo  view  the  elements  and  subgroups\n\n"); 
printf(“Enter  any  alpha-key  and  press  ENTER”); 
pr{ntf(”\n\nElse  press  ENTER  to  continua\n\n”); 

Qet8( return_char ) ; 
if(return_char[03  I*  '\0') 

< 

adoimyltO]  =  '\0'; 
adumnyZCO]  =  '\0'; 
aduiinySCO]  =  '\0'; 

screen_printer_Hrite(elements,  adunnyl,  aduMRy2,  abelisn_f i le_naine,  adummyS); 
) 

) 

> 
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/* 

ASSALGUG.C  -  This  program  accepts  permutations  from  a  user  ^or  the 
unknown  group  generation  for  the  Abstract  Algebra  Progranmiiig  System. 

*/ 

extern  char  subsets [273] [203] ,  {nternal_forffl[1S5]; 

void  initialize(char  elements[]  []  ); 

int  internal_format(char  pertnu_in[] ); 

void  pennutation_out(char  elements[]  [] }; 

void  check_elefflents(char  eleaient8[]  [] ,  int  *,  int  *); 

void  work_driver{char  elements [][] ,  int  *); 

void  unknoun_f ile_write(char  elements [] (],  char  unknown_f i le_name[] ); 
void  screen_printer_write<char  elementsd (] ,  char  •,  char  *,  char  *,  char  *) 

void  unknown_generation(element8) 
char  elements [203] [155] ; 

< 

char  permu_in[81] ,  return_char [2] ,  unknown_file_name[8]; 
char  udummyl  [4] ,  udifiiny2  [4] ,  udunrr/Z  [8]  ; 
int  i,  good_bad,  order,  new_order,  elefflent_nuniber; 
int  nijnber_of_elements_input; 

order  =  1;  new_order  =  1; 

niitiber_of_elements_input  =  7; 

initialize(elements); 

clrscrO; 

printf<''\n\n"); 

pr i nt  f ( "X25s" ,  “DIRECTIONS:"); 
printf("\n\n\n"); 

printf<"/S67s",  "Uhen  prompted  with  a  enter  a  permutation"); 
printf("\n“); 

printf(");65s",  "in  cycle  notation.  Use  '()'  as  delimiters."); 
printf("\n"); 

printf("5!65s",  "Enter  only  interger  values  (i)  in  the  range"); 
printf<"\n"); 

printf("X65s",  "0  <  i  <  128.  Place  a  space  between  each  i,"); 
printf<"\n"); 

printf("X61s",  "For  Example:  (1  34  5){23  127  2)."); 
printf{"\n\n"); 

printf("it67s",  "A  PERMUTATION  MAY  ONLY  BE  80  CHARACTERS  LONG."); 
printf("\n"); 

printf("X69s",  "NOTE:  A  GROUP  MAY  HAVE  A  TOTAL  OF  128  ELEMENTS."); 
printf("\n\n"); 

printf(")£678",  "Press  ENTER  when  the  permutation  is  complete."); 
printf("\n"); 

printf("X65s",  "To  end  entry  press  ENTER  with  a  null  input."); 
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printf<“\n\n''); 

puteh('*'); 

8ets<pennu_tn); 
i  =  0; 

whi  le(*perinu_in) 

< 

if(number_of_elenients_input  I*  0) 

C 

if(periraj_inti]  ==  '(') 

good_bacl  =  internal_forniat(pemu_in); 
if (good_bad) 

< 

i:heck_etenients<eleinent8,  &neM_order,  &eleflient_number); 
ifforder  !»  new_order) 
i 

- •nuiter_of_e I ement8_i nput ; 
order  =  new_order; 
clrscrO; 

> 

else 


{ 

printf{**\n\n“); 

printf<"X69s'*,  "The  above  permutation  has  already  been  en 

tered."); 

printf(*‘\n\n"); 

printf(")t62s",  "Press  ENTE9  to  reenter  your  permutation." 

); 

gets(return_char); 

> 


> 

else 

{ 

printf("'.n\n"); 

printf<"/'i63s",  "The  first  element  of  entry  must  be  a 
printf("\n\n"); 

printf ("/IbZs",  "Press  EHTER  to  reenter  your  permutation."); 
get s  <  return_char ) ; 

) 

clrscrO; 

printfC'This  is  the  canonical  form  "); 
printfC'of  the  permutations  you  entered\n"); 
pe rmu t a t i on_ou t ( e I ement 8 ) ; 
if(mmber_of_elen)ents_input  0) 

{ 

printf ("\n"); 

printf("»258«,  "DIRECTIONS:"); 
printf<"\n\n"); 

printf(")l67s",  "When  prompted  with  a  enter  a  permutation"); 
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printfC'Nn"); 

printfC'XiSs”,  “in  cycle  notation.  Use  'O'  as  delimiters."); 
printf("\n"); 

printfCtoSs",  "Enter  only  interger  values  (i)  in  the  range"); 
printf("\n"); 

printf(")S65s",  "0  <  i  <  128.  Place  a  space  between  each  i,"); 
printf("\n"); 

printf(“X61s“,  “For  Exanf>le:  (1  34  5)(23  127  2)."); 
printf(“\n\n"); 

printf(")S678“,  "A  PERMUTATIOH  MAY  ONLY  BE  80  CHARACTERS  LONG."); 
printf("\n"); 

printf<'’*69s",  "NOTE:  A  GROUP  MAY  HAVE  A  TOTAL  OF  128  ELEMENTS."); 
printf("\n\n"); 

printf("X67s",  "Press  ENTER  when  the  permutation  is  complete."); 
printf("\n"); 

printf("X65s",  "To  end  entry  press  ENTER  with  a  null  input."); 

printf("\n\n"); 

putch('*'); 

gets<permu_in); 

> 

else 

printf("\n\n“); 

printf("X65s",  "You  have  entered  the  max  number  of  permutations."); 
printf<"\n\n“); 

printf ("X53s",  "Press  ENTER  to  generated  the  group.  "); 

gets(return_char); 

pennu_inC0J  *  '\0'; 

) 

} 

else 

< 

printf ("\n\n"); 

printf ("X67s",  "You  may  only  enter  a  total  of  7  permutations."); 
prfntf<"\n\n"); 

printf(")!62s",  "Press  ENTER  for  the  program  to  continue."); 

gets<return_char); 

permu_inC0]  =  '\0'; 

> 

> 

if(nunber_of_elements_input  <  7) 

C 

work_driver<elements,  Sorder); 
clrscrO; 

pr i nt  f { "\n\n\n\n\n" ) ; 

printfC'At  the  *,  please  enter  up  to  seven  (7)  characters  for  a  f i lename.\n\n"); 
printfC'NOTE:  DO  NOT  ENTER  THE  PERIOD  AND  THREE  CHARACTER  EXTENSION. \n\n"); 
printf("X25s",  "*  "); 
gets{ unknown_f i I e_name) ; 

unknown_fi le_write(elements,  unknown_file_name); 
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clrscrO; 

return_char [0}  =  '\0'; 

printf<“\n\n\nTo  view  the  elements  and  siibgroups\n\n"); 
printfC'Enter  any  alpha-key  and  press  ENTER"); 
printf("\n\nElse  press  ENTER  to  contlfHJe\n\n*’); 
gets(return_char); 
if (return_charlO]  1=  '\0') 

< 

uduimyl  [0]  =  '\0'; 
udurnnyZlO)  =  '\0'; 
udLmny3[Q]  =  '\0'; 

screen_printer_write<etements,  udunnyl,  udumy2,  udutnny3,  unknown_fi 

> 

> 

> 


le_name); 
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/• 

ABSALGIN.C  -  This  program  initializes  the  external  arrays. 
*/ 

extern  char  subsets [273]  [203] ,  internal_form['i35]; 

void  initialize(eleflients) 
char  elements [203] [155] ; 

int  i; 
i  ^  0; 

internal_form[i]  =  '\0'; 
uhi le(i  <  203) 

{ 

elements [i] [0]  =  '\0'; 

♦+i; 

i  =  0; 

whi le(i  <  273) 

C 

subsetsli]  [0]  =  '\0'; 

++i; 

> 

> 
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/* 


ABSALGCC.C  -  Canonical  Formatter  Program  for  the  Abstract  Algebra  Programming 

System 

This  function  puts  into  canonical  form  any  permutation  passed  to 

it.  It  breaks  down  into  three  separate  parts: 

Part  1:  Separates  the  given  permutation  into  individual  cycles. 

Part  2:  Works  on  each  individual  cycle,  placing  the  smallest 
value  first. 

Part  3:  Combines  the  individual  cycles  into  one  permutation. 

Placing  the  cycle  with  the  largest  first  value  first 
then  each  cycle  in  decreasing  order  by  the  value  of 
the  first  element. 

This  function  is  called  after  every  permutation  multiplication. 


extern  char  subsets [273] [203] ,  internal_form[155]; 
void  canonical_form8tter() 


C 

char  temp_form[155] ,  canonical_form[53] [1551 ,  f irst_element; 

int  i,  j,  m,  n,  I,  depth_of_canonieal_forro; 

int  length_of_internal_form,  hold,  onee_through; 

j  »  0;  n  «  0;  m  =  0;  te(np_formlO]  *  '\0';  /*  start  Part  1  */ 

length_of_internal_form  =  strlen(internal_forffl>; 
while<i  <  length_of_internal_fonTi) 

C 

canonical_form[m]  [n]  =  iriternal_form[j] ; 

++j; 

whi le(internal_form[j]  !=  interna l_form[0]  U  internal_form[j]  !=  '\0') 

< 

♦+n; 

canonical_form[m] [n]  =  internal_form[j] ; 

♦♦j; 

> 

++n; 

canonical_form[m] [n]  =  '\0'; 

++m;  n  =  0; 

> 

depth_of_canonical_form  =  m  -  1;  /*  end  of  Part  1  •/ 
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/*  start  Part  2  •/ 


m  =  0;  n  =  1; 

uhileCm  <=  depth_of_canonical_form) 

< 

first_e lament  =  canon{cal_forffl[in]  [n] ; 
hold  =  n;  ++n; 

whi le(canon}cal_forin[m]  [nj  1=  '\0') 

{ 

if (first_el ament  >  canonical_form[nO  [n]) 

{ 

f  ir8t_element  ■  canonieal_f()rratml  In] ; 
hold  -  n; 

) 

++n; 

> 

i=  0; 

tefflp_formti]  =  internal_fonntO]; 

++i;  n  =  hold; 

te(rp_form[i]  =  canonical_forffl[ffl]  [n]; 

++n;  ++i; 

whi le<canon{cal_formtm] [n]  (s  canonical^fornCm] [hold] ) 

{ 

if<canonical_fonn[m]  In]  1=  '\0') 

< 

temp_form[i]  =  C8nonical_formtin]  In]  ; 

++i;  ++n; 

> 

else 

< 

n  a  1; 

> 

> 

temp_form[1]  *  '\0'; 
strcpy(canonical_form[m] ,  temp_form); 

++m;  n  =  1; 

>  /•  end  of  Part  2  */ 


n  =  1;  once_through  =1;  1*0;  /*  start  Part  3  •/ 

whi le(depth_of_C8nonical_form  >=  0) 

< 

m  a  0; 

f irst_element  =  canonical_form[m] [n] ; 
hold  =  m;  ♦+m; 

whilelm  <»  depth_of_canonical_form) 
t 

if(f irst_element  <  canonical_form[m] In] > 

< 

f ir8t_element  =  canonic8l_form[m] In] ; 
hold  a  m; 
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> 

++ni; 

> 

i  =  hold;  m  =  i  ♦  1;  j  *  0; 
if(once_through  ==  1) 

whi  le(canonical_forinCi]  [j]  !=  '\0') 

te(tip_form[ll  =  canonical_fomi[l3  [j]; 

♦+t; 

> 

--once_through; 

) 

else 

{ 

wh{le(canonical_forinCi]  [j]  I*  '\0') 

< 

tefflp_forin[l]  =  canon<cal_formCf]  Cj] ; 

++1;  +♦]; 

> 

) 

whileCm  <=  depth_of_car»oriical_fonn) 

{ 

strcpy(canonical_forni[i] ,  canonical_foni)(iiO ); 

♦+i;  ♦+«!; 

> 

•-depth_of_canonical_forni; 

>  /*  end  of  Part  3  */ 

temp_forni[U  =  '\0'; 

strcpyl internal_for(n,  tenip_form); 

> 
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/* 

ABSALGPO.C  -  This  program  printsout  the  generating  elements  produced  by 
the  different  generating  programs  -  Groupd,  Groupc,  Groupa,  and  Groupg 

•/ 

extern  char  sU>sets [273]  [203] ,  internal_formt1551; 

void  permutation_out(elements) 
char  elements [203] [155]; 
f 

int  i,  j; 

i  =  1; 
i  =  1; 

uhile(elements[j] [0]  I*  '\0') 
f 

strcpy(internal_form,  elements]]] ); 
printf("(  "); 

uhile(internal_form[i]  1=  '\0') 

if(intern8l_form[i]  *=  internal_form[0] ) 

{ 

printf(")(  “); 

♦+i; 

> 

else 

i 

printfC'Xd  ",  internal_form[i]  >; 

++i; 

> 

} 

printfC'JVn"); 

♦+j;  i  =  1; 

> 

> 
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/* 

ABSALGIF.C  -  Internal  Formatter  for  the  Abstract  Algebra  Programming 
System. 

This  function  accepts  a  permutation  from  the  Driver  and  converts  it  into  the 
internal  format  that  the  rest  of  the  program  can  then  use.  This  routirfe 
calls  SINGLETON  SEARCH,  CANONICAL  FORMATTER,  and  DISJOINT  to  perform 
its  tasks. 


*/ 


extern  char  subsets [273] [2031 ,  internal_form[155]; 

ifinclude  "ctype.h" 

void  singleton_searchO; 

void  disjoint(char  if_work_form[] ); 

void  canonical_formatter{); 

int  internal_format{permu_in) 
char  permu_in[80] ; 

( 

char  return_char[2] ,  if_work_form[311]; 

int  i,  j,  int_val,  n,  digit_test,  space_te8t,  good_bad; 

i  =  0;  j  =  0;  good_bad  =  1; 
n  =  strlen(permu_in); 
if_uork_form[0]  =  '\0'; 

Mhile(i  <  n) 

< 

digit_test  =  isdigit(perriu_inCiJ); 
if(digit_test) 

{ 

sscanf<&perniu_in[i] ,  "Xd“,  tint_vBl); 
if<int_val  >  127) 

C 

clrscrO; 

printf ("\.n\n\nXd  is  greater  than  127,  ",  int_val) 

printfC'the  maxinun  allowed  value. \n\n"}; 

printf ("Please  press  ENTER  to  continue  "); 

gets<return_char); 

good_bad  =  0; 

break; 

> 

else 

( 

if(int_val  ==  0) 

< 

clrscrO; 
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printf("\n\n\nO  by  itself  is  not  an  allowed  input  value. \n\n“); 
printfC'Please  press  ENTER  to  continue  "); 

Bets( return_char ) ; 
good_bad  «  0; 
break; 

> 

) 

internal_form[J]  *  int_val; 

++i;  +♦]; 

digit_test  *  i8digit(perinu_inli]  ); 
uhile(digit_test) 

< 

♦+i; 

digit_te8t  »  isdigit(permu_in[i] ); 

) 

> 

else 

< 

space_test  =  issp8ce(permu_inti3 ); 
if(space_test) 

else 

< 

if(pennu_in[i]  ==  '(') 
i 

internal_formtj]  =  -1; 

♦♦i; 

) 

else 

< 

if<peniiu_inti3  »=  ')') 
else 

< 

clrscrO; 

printf("\n\n\nlntegers,  spaces,  and  'O'  are  the  *'); 

printfC'only  legal  characters. \n\n"); 

printfCPlease  press  ENTER  to  continue 

getsf  return_ch8r ) ; 

good_bad  =  0; 

break; 

> 

) 

} 

> 

} 

internal_formCj]  =  '\0'; 
if(good_bad) 

s i ng I eton_search( ) ; 
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n  *  strlen(internal_form); 
if(n) 

{ 

strcpy( i f_work_form,  internal_forni); 
di 5  j  o i nt ( i f _work_f orm) ; 

j  =  0; 

whUe(if_uork_formtj]  1“  '\0') 

< 

internal_form[jj  «  if_HOPk_forintj] ; 

♦+i: 

internal_form[j]  =  '\0'; 
singleton_search(); 
n  =  strlen(internal_form); 
if(n) 

canon  i  ca  _f  ormat  ter(  >  ; 

else 

< 

clrscrO; 

printf<"'xn\n\nThe  previous  permutation  equated  to  all  singletons."); 
printfC'Please  press  ENTER  to  continue  "); 
gets(return_char); 
good_bad  =  0; 

) 

> 

else 

I 

clrscrO; 

printf("\n\n\nThe  previous  permutation  equated  to  alt  singletons. VnXn"); 
printf ("Please  press  ENTER  to  continue  "); 
gets(return_char); 
good_bad  »  0; 

> 

> 

returnC  good_bad) ; 

> 
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/ 


ABSALGFR.C  -  Ffte  read  data  program  for  the  Abstract  Algebra  Programming 
System 

This  program  reads  the  data  created  and  written  to  a  file  by  the 
different  Group  Generation  Programs. 


extern  char  subsets  [273n203] ,  internal_formI155l; 

#include  "stdio.h" 

void  screen_printer_write{char  elementsClCl,  char  *,  char  *,  char  *,  char  *); 

void  f i le_read( elements,  dihedral,  cyclic,  abelian,  unknown) 

char  elements  [203]  [155] ,  dihedral[4],  cyclic(41,  abelian[8],  unknoun[8]; 

< 

int  i,  j,  int_value,  efile_value,  sfile_value,  diheciral_value,  cyclic_value 
int  char_count,  line_count,  high_count,  length_count ,  count_array[273] ; 
char  element_form[155] ,  subgroup_form[203] ,  output_select[3] ; 
char  element_f i le[15] ,  subgroup_f i leC15] ,  return_che r [2] ; 
char  subgroup_sort [273] [203] ; 

FILE  *ep; 

FILE  *sp; 

FILE  ‘prnjjtr; 

/•  the  following  area  is  the  filename  construction  area  */ 
i  =  0; 

if(dihedral[0]  1=  '\0') 

C 

element_f i le[0]  ®  'O'; 
element_f ile[1]  »  'E'; 
elefflent_f i le[2]  =  '\0'; 
subgroup_f i le[0]  *  'O'; 
subgroup_f i le[1]  ■  'S'; 
subgroup_f i le[2]  »  '\0'; 
strcat(element_f i le,  dihedral); 
strcat(subgroup_f i le,  dihedral); 

> 

else 

< 

if(cyclic[0]  l=  '\0') 

{ 

element_f i le[0]  *  'C'; 
element_f i le[1]  *  'E'; 
element_f i le[2]  «  '\0'; 
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subgroup_f i letO]  =  'C'; 
subgroup_f i le[1J  =  'S'; 
subgroijp_f  i  le[2]  =  '\0'; 
strcat<ele(nent_f i le,  cyclic); 
strc8t(subgroup_f i le,  cyclic); 

) 

else 

< 

if(abelian[0]  1=  '\0') 

{ 

element_f i letOj  =  '\0'; 
subgro<jp_fileCO]  *  '\0'; 
strcpy<element_file,  abelian); 
strcpy(su'bgroup_file,  abelian); 
strcat(ele(nent_f i le,  “E“); 
strcat(subgroup_file,  "S"); 

> 

else 

element_f ileCO]  =  '\0'; 
subgroup^f i letO)  *  '\0'; 
strcpy{eleinent_f i le,  unknown); 
strcpy(subgroup_file,  unknown); 
strcat<elenient_file,  "£"); 
strcat<sobgroup_file,  "S"); 

) 

) 

> 

strcat(element_f i le,  ''.OAT''); 
strcat(subgroup_f i le,  ".DAT"); 

/*  the  following  area  opens  the  files  */ 

if((ep  =  fopen(ele(nent_f i le,  "rt"))  =®  MULL) 

< 

printfC'cannot  open  elenwnt  file\n"); 
exitd); 

) 

if<<sp  =  fopen(subgroup_f i le,  "rt"))  ==  NULL) 

< 

printfC'cannot  open  subgroup  file\n"); 
exitd); 

} 

/•  the  following  area  reads  the  element  file  */ 
i  =  0;  j  =  1; 

efile_value  fread(element_form,  1,  155,  ep); 
while(efile_value) 

{ 


112 


whi  le(ele(nent_forni[i]  1=  '\0') 

{ 

int_value  =  eleinent_forinIi] ; 
if(int_value  »«  -2> 

{ 

elementsCj]  ti]  “  13; 

♦+i; 

> 

else 

{ 

ff(int_valtie  »*  -3) 

{ 

elemefltsCj]  tn  =  26; 

♦♦1; 

> 

else 

i 

elementstjnn  =  elftitentjormti]  ; 
++i; 


elements [j] Cil  =  '\0'; 

efjle  value  =  frcad(element_form/  1#  155,  ep); 
++j;  i  =  0; 

> 

fclose(ep); 

elements Cj] CO]  =  '\0'; 

/*  the  following  area  reads  the  subgroup  file  */ 
i  =  0;  j  =  1; 

sfile_value  =  f read(subgroup_form,  1,  203,  sp); 
whi  leCsf  Ue_value) 

{ 

while(subgroup_form[i]  1=  '\0') 

{ 

int_value  «  subgro^)_fonii[i); 
if(int_value  ==  -2) 

< 

subsetsCj]  li]  *  13; 

++i; 

> 

else 

if<int_value  =*  *3) 

< 

subsetsCj]  [i]  =  26; 
♦♦i; 

> 
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else 

if(int_v«lue  ==  -4) 

{ 

subsetsCj] [i]  ■  115; 

♦♦I; 

> 

else 

{ 

subsetstj]  [<]  >  subsroup_form[i]  ; 
♦♦1; 

> 

> 

> 

subsetsCj]  [i]  =  '\0'; 

sfUe_value  =  fread(subgroup_for(n,  1,  203,  sp); 

♦+j;  i  =  0; 

> 

fclose(sp); 
subsetsCj]  [0]  =  '\0'; 

screen_printer_Hrite(elements,  dihedral,  cyclic,  abelian,  unknown); 
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/* 

ABSALGPS.C  -  Write  data  to  either  the  printer  or  screen  for  the  Abstract 
Algebra  Prograiming  System 

This  program  gets  the  data  created  and/or  written  to  a  file  by  the 
different  Group  Generation  Programs  and  wrtes  to  the  appropriate  output. 


extern  char  subsets [273] [203] ,  internal_form[1551 ; 

#include  "stdio.h" 

void  order_subgroups(int  count_arrayt] ,  int  *); 

void  screen_printer_write(elements,  dihedral,  cyclic,  abelian,  unknown) 
char  elements  [203]  [155] ,  dihedral[4],  cyclicC4],  abelian[&],  unknown[8]; 

int  i,  j,  int_value,  dihedrat_value,  cyclic_value,  count,  subgroup_number; 
int  char_count,  line_count,  high_count,  count_array[273] ; 
char  output_select[3] ,  return_chart2J; 

FILE  'pm^ptr; 


high_count  =  0; 

order_subgroups  ( coun t_a  r  ray ,  4h  i  gh_coL»it ) ; 
count  =  1; 

/•  the  following  area  determines  if  output 
goes  either  to  screen  or  to  printer  •/ 

clrscrO; 

pr i ntf ( "\n\n\n\n\n\n\n" ) ; 
printf{"%50s",  "SELECT  OUTPUT  HETHOO"); 
printf("\n\n\n"); 
printf<"X45s",  "p  for  PRINTER"); 
printf("\n\n"); 

printf("5C44s",  "s  for  SCREEN"); 
printf{"\n\n\n"); 

printfCWOs",  "Enter  choice  arxi  press  ENTER:  "); 
gets{output_select); 

/•  the  following  area  is  for  screen  output  */ 

if(output_select[0]  ==  's') 

{ 

clrscrC); 

printfC’The  elements  are  the  following:\n\n"); 
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printfC'eO  is  the  identity  elententXn"); 
j  =  1;  i  =  1; 

whi teCelements Cj} CO]  f=  '\0') 

strcpyC internal_form,  elementstj] ); 

printfC'eXd  =  (  j); 

whi le(internat_form[i]  1=  '\0') 

{ 

if(internal_form[i)  ==  internal_form[0] ) 

t 

printf(")(  “); 

♦+i; 

> 

else 

< 

printfC'Xd  ",  internal_form[i]  ); 

♦♦i; 

> 

> 

printf<")\n"); 

++j;  i  =  1; 

) 

printf ("\nThe  subgroups  are  the  foUowingtXnXn"); 
printfC'SO  is  the  null  subgroupW); 
j  =  1;  subgroup_nutnber  1; 
whileCcount  <=  high_count) 

< 

Hhi leCsubsetsCj] tO]  !=  '\0') 

{ 

ifCcount  ==  count_array[j] ) 

( 

i  =  0; 

printfC'SXd  =  C  eO  ",  subgroup_nuiiiber); 
w'hi leCsubsetsCj]  Ci]  !=  '\0') 

printf("eXd  ",  subsetsCj] [i] ); 
♦♦i; 

> 

printf(">\n"); 

++J;  ++subgroup_number; 


else 


> 


( 

^+i; 

3 


j  =  1; 

♦♦count; 

> 

printf ("\n\nPress  ENTER  to  continue:  "); 
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gets( return_char) ; 

> 


/*  the  following  area  is  for  printer  output  */ 

if(output_select[0]  ==  'p') 

{ 

i  =  0; 
clrscrO; 

pr i n t  f ( " \n\n\n\n\n\n\n\n" ) ; 
printf("X44s",  "PRINTING"); 
prn_ptr  =  fopenC'PRN",  "wt"); 
i f (dihedral [0]  !=  '\0') 

C 

sscanfC&dihedral [i] ,  "Xd",  &dihedral_value); 

fprintf(prnj3tr,  "\n\nDIHEORAL  GROUP  D(Xd)\n\n\n",  dihedral_-'alue); 

> 

else 

( 

if(cyclic[0]  1=  '\0') 

{ 

sscanffScycl ic(ij ,  "Xd",  icy:l ic_value); 

fprintf(prn_ptr,  "\n\nCYCLIC  GROUP  C(Xd)\n\n\n",  cycl ic_value); 

) 

else 

< 

if(abelfanCO]  !=  '\0') 

C 

fprintf(prn_ptr,  "\n\nABELIAN  GROUP  (Xs)\n\n\n".  abelian); 

> 

else 

< 

fprintf(prn_ptr,  "\n\nUNKNOUN  GROUP  (Xs)\n\n\n",  unknown); 

> 

> 

> 

fputsC'The  ELEMENTS  are  the  foUowing:\n\n",  prn_ptr); 
fputsC'eO  is  the  identity  eleinent\n",  prn_ptr); 
j  =  1;  line_count  =  9; 
whi leCelementstj] COJ  1=  '\0') 

( 

i f{ I ine_count  >  60) 

< 

f pr i nt  f ( prn_pt  r ,  "\n\n\n\n\r \n\n\n" ) ; 
line_count  =  3; 

> 

fprintf(prn_ptr,  "eXd  =  (  ",  j); 

i  =  1;  ch8r_count  =  9; 

whi lefeletnentsCj]  [i]  1=  '\0') 


if(char_count  >  80) 

( 

fprintf(prn _ptr,  "W); 
char_count  ■  0; 

+♦1  ine_cocr»t; 

) 

if(line_co(jnt  >  60) 

< 

fprintf(prn jstr,  "\n\n\n\nVi\n\n\n"); 
l.ine_count  ®  3; 

) 

i f (elements Cjl Ci]  elementstjj CC] ) 

< 

fprintf(prn _ptr,  ")( 

++i;  char_count  *  char_count  ♦  3; 

> 

else 

fprintf(prn jstr,  "Xd  ",  elementsCj] til >; 

++i;  char_count  =  char_count  +  3; 

) 

> 

fprintf (prn_ptr,  ")\n“); 

++i; 

++ 1  i  ne_count  ; 

) 

if(line_coijnt  <=  61) 

< 

Hhi  le(Une_count  <  70) 

{ 

fprintftprnjJtr,  "\n"); 

++line_count; 

) 

) 

fputsC'The  subgroups  are  the  following:\n\n",  prnjstr); 
fputsC'SO  is  the  null  suljgroupXn",  prnjatr); 
j  =  1;  line_count  =  7;  subgroup_nutnber  =  1; 
while(count  <=  high_couni:) 

( 

uhi le(subsetsCj] 10]  1=  '\0') 

< 

if(count  ==  count_array[j] ) 

{ 

i  =  0; 

if(line_count  >  60) 

{ 

fprintf(prn_ptr,  ”\n\n\n\n\n\n\n\n"); 
line_count  »  3; 

) 

fprintf{prn_ptr,  "SXd  -  {  eO  ",  subgroup_nu(nber); 
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ehar_count  =  12; 

whlleCsubsetstjUn  !=  '\0') 

< 

if(char_count  >80) 

{ 

fprintf(prn_ptr,  "\n''); 
char_count  =  0; 

■♦•+line_coijnt; 

> 

if(line_count  >  60) 

< 

f pr i nt  f ( prn_pt  r ,  "\n\n\n\n\n\n\n\n" ) ; 
lin<'_count  =  3; 

> 

fprintf (prnjjtr,  "eXd  ",  subsetsCj)  [i)  ); 

♦+i;  char_C()unt  =  char_count  +  5; 

> 

fprintf(prn jstr,  “)',n"); 

♦♦j;  ♦+line_count;  •4+subgroup_nuniber; 

> 

else 

t 

♦+j; 

> 

> 

i  =  1; 

♦♦count; 

} 

if(line_count  <=  61) 

< 

whi le(linc_count  <  67) 

C 

fprlntf(prn_ptr,  "\n"); 

♦♦line_count; 

> 

> 

fcloselprnjjtr); 

printf("\n\nPress  ENTER  to  continue:  "); 
gets(return_char); 

> 

> 
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/* 

ABSALGOS.C  -  Orders  the  subgroup  data  from  lowest  order  to  highest  order 
for  Abstract  Algebra  Prograiming  System 

*/ 

extern  char  subsets [273] [203] ,  internal_form[155]; 


void  order_subgroups(count_array,  high_count) 
int  count_arr8y[273] ,  *high_count; 

int  i,  j; 

int  length_count; 

/*  the  following  area  sorts  the  subgroup  file  */ 


whi  led  <  273) 

{ 

count_array[i]  =  0; 

♦+i; 

> 

length_count  =  0; 

j  =  1; 

while(subsets[j] [0]  1=  '\0') 

{ 

length_count  =  strlen(sul3sets[jj); 
ff(length_count  >  *high_<;ount) 

< 

*high_count  =  length_count; 

> 

count_array[j]  =  length_.:ount; 

**j; 

> 

> 
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/ 


ABSALGOU.C  -  Dihedral  write  data  program  for  the  Abstract  Algebra  Progranning 
System 

This  program  writes  the  data  created  by  the  Dihedral  Group  Generation  Program. 
*/ 

extern  char  subsets [273] 1203] ,  internal_form[155]; 

#include  "stdio.h" 


void  dihedral_f i le_write(elements,  dihedral) 
char  elements [203] [155] ,  dihedral C4]; 

t 

int  i,  j,  int_value,  efile_value,  8file_value; 
char  element_form[155] ,  subgroup_form[203]; 
char  dihedral_elefflent[12] ,  dihedral_subgroupt12]; 

FILE  *ep; 

FILE  *sp; 

t*  the  following  area  is  the  filename  construction  area  */ 
i  =  0; 

dihedral_element[0]  =  'D'; 
dihedral_element [1]  =  'E'; 
dihedral_element[2]  =  '\0'; 
dihedral_subgroup[0]  *  'O'; 
dihedral_subgroup[1]  *  'S'; 
dihedral_subgroup[2]  =  '\0'; 
strcat(dihedral_element,  dihedral); 
strcat(dihedral_subgroup,  dihedral); 
strcat(dihedral_element,  ".DAT"); 
strcat(dihedral_subgroup,  ".DAT"); 

/•  the  following  area  opens  the  files  */ 

ifllep  =  fopen(dihedral_element,  "wt"))  =*  NULL) 

{ 

printfl "cannot  open  element  file\n"); 
exit(l); 

> 

ifllsp  =  fopen(dihedral_subgroup,  "wt"))  »=  NULL) 

printfl "cannot  open  subgroup  file\n"); 
exit(l); 

) 
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/*  the  foUowinfl  area  writes  the  elenient  file  */ 


i  =  0;  j  =  1; 

uhi le(elefflents[jl tOl  I®  '\0') 

{ 

whileli  <  155) 

ete(iient_formti]  =  '\0’; 

> 

i  =  0; 

whi lelelefltentslj]  ti]  I®  '\0') 


< 

int_value  =  elements [jl Ci] : 
if(int_value  ==  13) 

{ 

element_form[i]  ®  -2; 
♦♦i; 

} 

else 


{ 

if<int_value  ®=  26) 
i 

element_for(ntiJ  •  -3; 

■‘♦i; 

> 

else 

\ 

(•lement_fonnIi]  *  elementslj)  It) ; 
-♦i; 

> 


> 

> 

element_form[i]  *  '\0'; 

efile_value  =  fwrite(elenent_form,  155,  1,  ep); 
♦+j;  i  =  0; 

> 


fclose(ep); 


/*  the  following  area  writes  the  subgroup  file  */ 


i  =  0;  j  =  1; 

whi lelsubsets Cj] [0]  !=  '\0') 

{ 

whileCi  <  203) 

{ 

subgroup_forniCi]  =  '\0'; 
) 
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i  =  0; 

whi le(subsets[j] [i]  I*  '\0') 
i 

int_value  *  subsetsCJHil; 
if{int_value  «  13) 

<. 

sub9roup_foniit1J  »  *2; 
++i; 

> 


else 

{ 

if<int_value  **  26) 

{ 

aubgroup^formti]  =  -S; 
♦♦i; 

> 

else 

{ 

if(int_value  ==  115) 

< 

8ubgroup_forn)ti) 

♦♦i; 

> 

else 

< 

subgroup_form[ij 

> 

> 

> 

) 

subgpoup^formti]  *  '\0'; 

sfile_value  =  fwrite(subgroup_foptn,  203,  1,  sp); 
♦+j;  i  =  0; 

> 

felose(sp); 

> 


-4; 


subsetsCj]  Ml; 
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ABSALGCU.C  -  Cyclic  write  data  program  for  the  Abstract  Algebra  Programning 
System 

This  program  writes  the  data  created  by  the  Cyclic  Group  Generation  Program. 


extern  char  subsets C273]  [203] ,  internat_formC155]; 


#include  "stdio.h" 


void  cyclic_file_write(elements,  cyclic) 
char  elements[203] [1SS] ,  cyclicC41; 


int  i,  j,  int_value,  efile_value,  sfile_value; 
char  element_form[155] ,  subgroup_form[2031; 
char  cyclic_eleinent[12] ,  cycl  ic_subgroup[121; 

FILE  *ep; 

FILE  *sp; 

/•  the  following  area  is  the  filijname  construction  area  */ 
i  =  0; 

cycl ic_element CO)  =  'C'; 
cyclic_elefflent[1l  =  'E'; 
cyclic_elementC2]  =  '\0'; 
cycl ic_subgroupC0]  =  'C'; 
cyclic_subgroupC1]  =  'S'; 
cyclic_subgroupC2]  =  '\0'; 
strcat(cyel ic_element,  cyclic); 

St  rcat ( eye  I i c_subgroup,  eye  lie); 
strcat(cycl ic_elenient,  ".OAT"); 
strcatfcycl ic_subgroup,  ".DAT"); 

/•  the  following  area  opens  the  files  V 


if((ep  *  fopen(cyclic_element,  "wt"))  =»  NULL) 

< 

printf ("cannot  open  elemwit  file\n"); 
exit(l); 

> 

if<(sp  =  fopen<cycl ic_subgroup,  "wt"))  ==  MULL) 
{ 

printfC’cannot  open  subgroup  file\n"); 
exit(l); 
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/*  the  following  area  writes  the  element  file  V 


i“0# 

whilelelementsljl [01  I*  '\0') 

C 

whileCi  <  155) 

element_fonn[i]  ■  '\0'; 

) 

i  *  0; 

whi leCelementsCj]  [i]  I*  '\0') 

int_value  «  elementsCjl  til; 
if(int_value  **  13) 

element_formtil  »  -2; 

♦♦i; 

> 

else 

{ 

if(int_value  ==  26) 

{ 

element_forni[il  =  -3; 

> 

else 

{ 

element_form[i)  =  elementstjHi) ; 
♦♦i; 

> 

> 

> 

element_form[i]  =  '\0'; 

efile_value  =  fwrite<element_form,  155,  1,  ep); 

++j;  i  =  0; 

> 

fclose(ep); 

/*  the  following  area  writes  the  subgrot47  file  •/ 

f  =  0;  i  =  1; 

whi le(subsets(j] [0]  I*  '\0') 

whi le( i  <  203) 

< 

subgr«Kjp_formti]  ■  '\0'; 

++i; 

) 
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i  =  0; 

wtii  leCsubsetsCj]  Ci]  !=  '\0') 

{ 

int_value  =  subsets [jl Cil; 
if(int_value  ==  13) 

8ubgroup_form[U  ■  -2; 

++i; 

> 

else 

< 

if(int_valua  ==  26) 

< 

subgroup_forin[n  »  -3; 
<*i; 

) 


else 

{ 

if<int_value  ==  115) 


C 

subgroup_form[{]  =  -4; 

♦+i; 

> 

else 

{ 

6Ubgroup_form[{l  =  subsetsljlli] 

+♦«; 

> 

> 

} 

> 

subgroup_formCi]  =  '\0'; 

sfile_value  =  fwrite<subgroup_form,  203,  1,  sp); 

♦♦j;  i  =  0; 

> 

fclose(sp); 

> 
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ABSALGAU.C  -  Abelian  write  data  program  for  the  Abstract  Algebra  Programming 
System 

This  program  writes  the  data  created  by  the  Abelian  Group  Generation  Program. 


extern  char  subsets  [273H203] ,  internal_formC155] ; 


#include  "stdio.h" 


void  abelian_file_write(elements,  abel{an_file_naffle) 
char  elements[203} [1S5] ,  abelian_file_naffleC8]; 


int  i,  j,  int_value,  efile_value,  8file_value; 
char  element_form[155] ,  subgroup_f ormC203] ; 
char  abelian_element[15] ,  abelian_subgroupt15]; 

FILE  *ep; 

FILE  *sp; 

/*  the  following  area  is  the  filename  construction  area  */ 
i  =  0; 

abelian_e lament  CO]  =  '\0'; 
abe I i an_subg  roup  CO]  =  ' \0 ' ; 

St  rcpy  <  abe  I  i  an_e  I  ement ,  abel  i  an_f  i  I  e_naiT)e ) ; 
strcpyCabel i an_subgroup,  abel ian_f i le_n8me); 
strcat(abelian_element,  "E.OAT"); 
strcatCabel ian_subgroup,  "S.OAT"); 

/*  the  following  area  opens  the  files  */ 

if (Cep  =  fopen{abelian_element,  "wt"))  ==  NULL) 

{ 

printf (“cannot  open  element  file\n"); 
exit(l); 

> 

if((sp  =  fopen(abelian_subgroup,  "wt"))  =*  MULL) 

( 

printf ("cannot  open  subgroup  file\n"); 
exit(l); 

) 


/*  the  following  area  writes  the  element  file  */ 
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while(ele)nents[j]  CO]  !=  '\0') 

< 

whUe(i  <  155) 
t 

ele(nent_fonii[i]  =  '\0'; 

♦+i; 

> 

i  =  0; 

whi leCelementsCj] Ci]  1=  '\0') 

{ 

5nt_value  =  elementsCj] [il; 
if(int_value  ==  13) 

< 

eleflient_formCil  =  *2; 

♦+i; 

> 

else 

if(int_vatue  ==  26) 

< 

eleinent_forin[i]  =  -3; 

++i; 

) 

else 

{ 

ele(nent_forin£i]  *  ele«Dents[j]  Ci); 
♦♦i; 

) 

} 

> 

element_forni[i]  =  '\0'; 

efUe_value  =  fHrite(element_form,  155,  1,  ep); 

♦♦j;  i  =  0; 

> 

fclose(ep); 

/•  the  following  area  writes  the  subgroup  file  •/ 
i  *  0;  j  =  1; 

whi leCsubsetsCj] CO]  !=  '\0') 

{ 

whileCi  <  203) 
t 

subgroup_formCi]  ==  '\0'; 

♦+i; 

> 

i  «  0; 

whi leCsubsetsCj] Ci]  1=  '\0') 

< 

int_value  =  subsers Cj] Ci] ; 
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if(int_value  «  13) 

{ 

subgroup_forin[i]  =  -2; 
♦+i; 

> 

else 


< 

if(int_V8lue  ==  26) 

< 

subgroup_fonn[i]  =  -3; 

> 

else 


C 

lf(int_value  ==  115) 

< 

subgroup_forin[i] 

♦♦i; 

> 

else 

t 

subgroup_form[i] 

♦♦i; 

> 

> 

) 


> 

subgroup_fortntt]  =  '\0'; 

sfile_value  =  fwrite<subgroup_form,  203,  1,  sp); 
♦+j;  i  =  0; 

> 

fclose(sp); 

) 


-4; 


subsets [j] Ci] ; 
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/* 

ABSALGUW.C  *  Unknown  write  data  program  for  the  Abstract  Algebra  Progranning 
System 

This  program  writes  the  data  created  by  the  Unknown  Group  Generation  Program. 

*/ 

extern  char  subsets [273] [203] ,  internal_form[155] ; 

^include  "stdio.h" 


void  unknown_f i le_wri tetelements,  unknown_f i le_name) 
char  elements[203]  [155] ,  unknown_f  i  le_nanie[8]  ; 

C 

int  i,  j,  int_value,  efile_value,  sfile_value; 
char  element_form[155] ,  subgroup_form[203] ; 
char  unknown_element  [15] ,  unknowri_subgroupt15] ; 

FILE  ‘ep; 

FILE  *sp; 

/*  the  following  area  is  the  filename  construction  area  •/ 
i  =  0; 

unknown_element [0]  =  '\0'; 
unknown_subgroup[0]  =  '\0'; 
strcpy(unknown_element,  unknown_f i le_name); 
strepy(unknown_subgroup,  unknown_file_naroe); 
s t  rca t ( unknown_e I emen t ,  "£ . OA T" ) ; 
strcat(unknown_subgroup,  "S.DAT”); 

/*  the  following  area  opens  the  files  •/ 

if{(ep  =  fopen(unknown_element,  "wt"))  »=  NULL) 

{ 

printf ("cannot  open  element  file\n"); 
exitd); 

> 

if{<sp  =  fopen<unknown_subgroup,  "wt"))  ==  NULL) 

printf ("cannot  open  subgroup  file\n"); 
exitd); 

) 

/*  the  following  area  writes  the  ;lement  file  •/ 
i  =  0;  j  =  1; 
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uhileCelementstj] CO]  I*  '\0') 

whileCi  <  155) 

element_foriii[i]  ■  '\0'; 

++i; 

> 

i  =  0; 

whi CeCelementsCj] Cf]  I-  '\0') 

{ 

int_value  =  elements Cj) ti]; 
if(int_value  ==  13) 

< 

element_formCil  =  -2; 

) 

else 

{ 

if(int_value  ==  26) 

{ 

element_formCi)  =  ‘3; 

++1; 

> 

else 

{ 

element_form[i)  =  elements [j] tt]; 

> 

y 

y 

element_formCi]  »  '\0'; 

efile_value  =  fwrite(element_form,  155,  1,  ep); 

++j;  i  =  0; 

) 

fclose(ep); 

/*  the  following  area  writes  the  subgroup  file  */ 
i  =  0;  j  =  1; 

whi leCsubsetstj] [0]  !=  '\0') 

{ 

whileCi  <  203) 

( 

subgroup_formti)  »  '\0'; 

++i; 

> 

i  =  0; 

while(subsets[j]  Cl]  1=  '\0') 

int  value  *  subsets  Cj)  ti); 
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if(int_value  ==  13) 

{ 

subgroup_forinti)  *  '2; 
++i; 

> 


else 


if(int_value  ==  26) 

3ubgroup_formtf)  =  -3; 
++i; 

> 

else 

C 

if(int_valoe  115) 

{ 

subgroup_form[i) 

++i; 

> 

else 

{ 

subgroup_f orm [ i  ] 
++i; 

> 

) 

) 


> 

subgro(jp_/orm[i1  =  '\0'; 

sfile_value  =  fHrite{sul>3roup_foriii,  203,  1,  sp); 
++j;  i  =  0; 

} 

fclose(sp); 

} 


-4; 


subsetsCj]  [i) ; 
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/* 

ABSALGGO.C  -  Group  Generator  Driver  Program  for  Abstract  Algebra 
Programming  System 

This  function  calls  all  the  functions  necessary  to  generate  a  group. 

•/ 

extern  char  subsets [273] [203] ,  internal_fonn[155J; 

void  a_to_the_n(char  elemcnts[]  [] ,  char  *,  int  *,  char  *); 
void  subgroup_sort{char  *); 
void  add_subgroups(char  *,  int  *); 
char  check_subgroup(char  *); 

void  a_times_b(char  elements[]  [] ,  char  *,  int  •,  char  *); 

work_driver(elements,  order) 
char  elements [203] [155]; 
int  *order; 

{ 

char  save_set  [407] ,  set  [407],  work_form(311] ; 
char  element_used_table[203] [2] ; 

int  neH_order,  i,  j,  length_of_sub8et,  campare_sets,  m,  n; 
int  new_num_sets,  no_new_elements,  do_not_h8ve_subgrouf>,  length; 
int  num_subsets,  I,  length_of_set; 

i  =  0; 

whileCi  <  203) 

< 

element_used_table[i] [0]  ■  '\0'; 
elenient_used_table[i]  [1]  =  '\0'; 

++i; 

> 

work_form[0]  =  '\0'; 
save_set[0]  =  '\0'; 
set[0J  =  '\0'; 
neH_order  =  ‘order; 
num_subsets  =  0; 
neu_num_sets  =  num_subsets; 
j  =  1;  i  =  0;  set[i]  *  '\0'; 

whileCj  <  ‘order)  /*  This  sets  up  the  base  set  of  elements.  ‘/ 
i 

setli]  =  j; 

strcpy(internal_form,  elements [j] ); 
a_to_the_n{elements,  set,  &new_order,  work_form); 
elefflent_used_table[j] [0]  *  'x'; 
subgroup_sort(8et); 
add_subgroups(set,  4neM_rHJn_set8); 
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num_subsets  =  new_num_sets; 
i  =  0;  ♦+]; 

•order  =  new_order; 
setCil  =  '\0'; 

) 

j  =  1;  i  =  1; 
whUe(*order  <=  201) 

{ 

no_new_elements  =  1; 
length_of_subset  =  strlen(subsets[i] ); 
length  =  length_of_subset  +  1; 
ifdength  ==  ‘order) 

< 

♦+i; 

length_of_subset  =  strlen(subsets[i) ); 

> 

uhi le( length_of_subset) 

< 

strcpyCset,  subsets []); 
strcpy(save_set,  subsietsCi] ); 
length_of_subset  =  strlen(subsets[j] ); 
length  =  length_o#_s».ibset  +  1; 
ifdength  ==  ‘order) 

< 

**): 

length_of_suk>set  =  strlen(subsets[j) ); 

> 

Hhi le( length_of_subset) 

{ 

I  =  0; 

length_of_set  =  strlen(set); 
whilelsubsetstj]  tlj  I*  '\0') 

{ 

set [length_of_set3  =  subsets C j] [1] ; 

♦+l;  ♦+length_of_set; 

> 

set Clength_of_set]  »  '\0'; 

subgroup_sort (set); 

coinpare_sets  =  strcmpCset,  save_set); 

if(compare_sets) 

C 

do_not_have_subgroup  =  check_subgroup(set); 
i f (do_not_h8ve_8ubgroup) 

< 

a_times_b(eleinents,  set,  &new_order,  work_form); 
if (‘order  *=  new_order) 

< 

subgroup_sort (set ) ; 
sdd_subgroups(set,  &neH_num_sets); 
if(new_num_8ets  ==  nun_subsets) 
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{ 

8trcpy<set,  save_set); 

++j; 

length_of_subset  =  strlen(subsets[j]); 
if (length  ==  ‘order) 

< 

++j; 

length_of_subset  =  strlen(subsets Cj) ); 

> 

> 

else 

( 

nijn_subsets  =  new_nuni_sets; 
length_of_subset  =  0;  no_new_elements  =  0; 

> 

> 

else 

( 

8ubgro(JF'_sort  (  set ) ; 
add_sub{:roups(set,  4new_rKjm_sets); 
rKin_sub£ets  =  new_nijn_sets; 
length_of_subset  =  0;  no_new_elefnents  =  0; 

•order  =  new_order; 
m  =  1;  r  =  0;  setCnJ  =  '\0'; 
whileCm  <  ‘order) 

< 

if (elen)ent_used_t8ble[m)  10)  !=  'x') 

C 

set  In)  =  m; 

strcpy(internal_form,  elementstm) ); 
a_to_the_n(elements,  set,  &new_order, 
work_form); 

ele(nent_used_table[m]  10)  =  'x'; 
subgroup_sor  t  ( f.et )  ; 
add_subgroups(set,  &new_num_sets); 
n  =  0;  ++in; 

‘order  =  new_order; 
nun_subsets  =  new_nuni_sets; 
set  In)  =  '\0'; 

> 

else 

{ 

♦♦in; 

> 

> 

> 

> 

else 

< 

♦‘j; 


135 


length_of_sub8et  3  8trlen(sub«ets[j] ); 
if (length  »*  *order) 

( 

length_of_8ub»et  *  strlenCsubsetsCj] ); 

> 

> 

> 

else 

< 

♦♦j; 

length_of_subset  >  8trlen(subsets[j] ); 
if (length  **  ‘order) 

( 

**j; 

length_of_8ub8et  >  8trlen(8iibsetslj] ); 

) 

> 

> 

i f (no_ne«_elements) 

{ 

♦♦i;  j  =  1; 

length_of_suk«et  =  strlen(subset8[il ); 
if(length_of_subset  =*  ‘order) 

( 

♦♦i; 

length_of_sub8Ct  ■  8trlen(8ubsets[i] ); 

) 

> 

else 

< 

length_of_sutset  »  0; 

> 

> 

i f ( no_ne«_e I ements ) 

‘order  =  255; 

) 

‘order  =  new_order; 

) 
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/* 

ABSALGAN.C  -  Basic  Premutation  Raised  to  a  Power  Program  for  the  Abstract 
Algebra  Programming  System 

The  function  receives  a  permutation  ar^  multiplies  that  permutation 
by  itself  until  the  null  string  ('\0')  is  found. 

*/ 

extern  char  subsets [273H203} ,  interrwl_form[155J; 

void  disjointfchar  *); 
void  singleton_search(); 
void  canonical_forniatter{); 

void  check_elefflents(char  elementsCl  tl ,  int  *,  int  *); 

void  a_to_the_n( elements,  set,  order,  uork_fonn) 
char  elements [203]  [1551 ,  set[407],  work_form[311] ; 
int  ‘order; 

C 

char  save_form[155] ; 
int  k,  element_number,  i; 

int  new_order,  length_interfwl_form,  leiTgth_work_form; 


save_form[0]  =  '\0'; 
new_order  =  ‘order;  k=1; 
strcpy<save_form,  interna l_form); 
strcpy{Hork_form,  interna l_form); 
strcat(work_form,  save_form); 
length_work_form  *  strlen(work_form); 
whi le( length_work_form) 

( 

di s joint <work_form); 
i  «  0; 

whi le<uork_form[i]  1=  '\0') 

< 

internal_form(i]  »  work_formti] ; 

♦♦i; 

> 

internal_form[i]  »  '\0'; 
singleton_search(); 

length_internal_form  ■  strlen(intern8l_form); 
length_work_form  ■  0; 
if(length_internal_form) 

< 


eanonical_form8tter(); 

check_elements(elements,  tnew_order,  8ielement_number); 
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setCk]  »  elewent_nijmber; 

♦♦k; 

8trepy(work_form,  internal_fortii); 
8trcat(work_fonn,  8ave_form); 
length_work_fonn  =  strlen(Mork_for«); 
> 

> 

•order  =  neH_order; 
setCk]  =  '\0'; 

> 
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/ 


ABSALGSS.C  -  Subgroup  Sorter  Program  for  the  Abstract  Atgetira  Progranning 
System 

This  function  recieves  a  subset  and  then  sorts  it  from  lowest  to 
highest. 

*/ 

void  subgroup_sort(set) 
char  set  [407]  ; 

< 

char  temp_set  [4071 ,  delete_set[407]  ,  element; 
int  i,  j,  n,  length_of_set,  hold,  second_hold; 


j  =  0;  i  =  0;  temp_set[01  *  '\0';  delete_set[01  =  '\0'; 

element  =  set[i]; 

hold  =  i;  ++i;  second_hold  «  101; 

whi leCelement  !=  '\0') 

I 

while(set[il  1=  '\0') 

< 

if (element  <  setli] ) 

++i; 

else 

< 

if(element  >  set[i]) 

element  «  setdl; 
hold  *  i;  ♦*»; 

> 

else 

< 

second_hold  *  i;  ++i; 

> 

> 

> 

temp_set[J]  =  element; 
i  =  0;  ♦+];  n  »  0; 
length_of_set  »  strlen(set); 
whiled  <=  length_of_8et) 

C 

if(i  *=  hold  1 1  i  **  second_hold) 

++i; 

else 

{ 

delete_setCn]  »  setdl; 
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> 

> 

strcpy(set,  delete_set); 
i  =  0; 

element  =  setlH; 

hold  =  i;  ++i;  second_hold  =  101; 

J 

temp_set[j]  =  '\0'; 
strcpyCset,  temp_set); 

> 
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/• 

ABSALGAS.C  -  Adds  generated  Subgroups  to  the  list  of  Subgroijps  for  the 
Abstract  Algebra  Progranming  System 

This  function  searches  all  the  known  subsets  that  have  been  produced 
to  determine  if  the  current  subset  is  a  new  subset  If  it  is,  then  it 
is  added  to  the  list  and  the  list  is  returned  to  the  cal ling  function. 

*/ 

extern  char  subsets [273] [2031 ,  internal_formt155]; 

void  add_subg roups (set,  new_num_sets) 
char  set  [407]  ; 
int  *new_num_sets; 


I 

char  temp_set [203] ; 

int  i,  j,  new,  already_h8ve_it,  length_of_subset; 


temp_set[0]  =  '\0';  i  =  0; 
j  =  1;  already_have_it  =  0; 
while<set[i]  1=  '\0') 

temp_set[i]  =  set[{]; 

++i; 

> 

temp_set[i]  =  '\0'; 

length_of_subset  »  strlen(subsetsCj] ); 
whi le( length_of_subset) 

< 

new  =  strcmp(temp_8et,  subsetstj]); 
if (new) 

C 

♦+J; 

length_of_8ub8et  ■  strlen(subsets[j] ); 

> 

else 

< 

♦+a I ready_have_i t ; 
length_of_8ub8et  ■  0; 

) 

> 

i f ( a  I  ready _h  a ve_i t ) 
return; 

else 

< 
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/ 


ABSALGKG.C  -  Check  Subgroups  for  Existence  Program  for  the  Abstract  Algebra 
Programming  System 

This  function  searches  all  the  known  subgroups  that  have  been 
produced  to  determine  if  the  current  subgroup  is  on  the  list:. 

*/ 

extern  char  subsets [273] [203] ,  internal_formt155] ; 

char  check_subgroup(set) 
char  set  [407]  ; 

C 

char  temp_set [203] ; 

int  i,  j,  new,  have_subgroup,  length_of_subgroup; 

i  =  0;  temp_set[0]  =  '\0'; 
while(set[i]  !=  '\0') 

< 

temp_set[i]  =  set[i]; 

♦+i; 

> 

temp_set[i]  =  '\0'; 

j  =  1;  have_subgroup  =  1; 
length_of_subgroup  =  strlen<subsets[j) ); 
whi le(length_of_subgroup) 

C 

new  =  strcmp(temp_set,  subsets[j]); 
i f (new) 

< 

++j; 

length_of_subgroup  *  strlen(subsets[ j] ); 

> 

else 

'-have_subgroup; 
length_of_8ubgroup  *  0; 

> 

) 

return  have_subgroup; 

) 
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/• 

ABSALGAB.C  -  HultipUer  of  two  Pernutations  for  Abstract  Algebra 
Progranining  System 

This  function  receives  a  set  of  elements  which  is  composed  of  2 
subgroups.  Its  primary  function  is  multiplying  every  element  of 
the  set  by  every  other  element  of  the  set  both  the  left  and  the 
right  side. 

*/ 

extern  char  subsets  [273H203] ,  internal_formt155l; 

void  disjointfchar  •); 
void  singleton_searchO; 
void  canonical_formatter(); 

void  check_elements(char  elementsCHl,  int  *,  int  •); 
void  subgroup_sort(char  •); 

void  a_times_b< elements,  set,  order,  worfc_form) 
char  elementst203]  [155] ,  setC407],  worlc_*orm[311] ; 
int  *order; 

i 

int  i,  j,  n,  new_order,  length_of_set,  count,  element,  multiplier 
int  multipl lean,  length_of_internal_form,  elefflent_rHjnber; 
int  save_length_of_set,  do_not_hiive_it,  m; 


save_length_of_set  =  strlen(set); 
length_of_set  =  save_length_of_s<!t; 
new_order  =  ‘order; 
i  *  0;  j  =  i; 

whileCi  <  length_of_set) 

multiplier  =  setti] ; 
multiplican  =  setCj]; 
strcpy(work_form,  element s [multiplier] ); 
strcat(work_form,  elementslmultiplican] ); 
while(j  <  length_of_set) 

{ 

count  =  2; 
whi le(count) 

d i s i o i n  t  <  wor  k_f orm) ; 
m  =  0; 

whi le(work_forro[m]  1=  '\0') 

< 
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internal_foniiCnO  =  Hork_form[m]  ; 

) 

internal_fonn[in]  =  '\0'; 
s i ngl eton_search( ) ; 

tength_of_»nternal_#orm  =  strlen( internal_form); 
i f ( I en5th_of _i nterna  l_f  orm) 

--count; 

canonical_forinatter( ); 

check_elemants(elei«(nt8,  &new_order,  &eleinent_nuniber); 
n  =  0;  do_r>ot_have_i  t  =  1; 

HhUe(n  <  length_of..set) 

{ 

element  =  st.'t  [n] ; 
if(element_nuT*jer  ==  element) 

< 

n  =  length_of_set; 
do_not_have_i t  =  0; 

> 

else 

♦+n; 

> 

i  f  (clo_not_have_i  t ) 

{ 

settn]  =  eUiment_number; 
element  =  0;  ++n; 
settn]  =  element; 
length_of_set  =  strlen(set); 

> 

> 

else 

count  *  0; 
if(count) 

< 

strcpy(work_form,  elementstmultiplican]  ); 
8trcat(Hork_form,  elements [multi pi i er) ); 

) 

> 

++j; 

length_of_8et  ■  strlentset); 
if<j  <  length_of_set) 

{ 

strcpy{work_form,  elements [nulti pi ier] ); 
multlplican  =  setCj]; 

8trcat(work_form,  elementstmultiplican] ); 

> 

> 

length_of_set  =  strlentset); 
i f (8ave_length_of_set  ==  length_of_8et) 
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♦order 

> 


t 

♦♦i;  i  =  i; 

> 

else 

t 

subgroup_sor t ( set ) ; 
i  »  0;  j  =  i; 
save_length_of_8et  * 
length_of_set  =  save. 
> 


) 

=  new_order; 


strlen(set); 

.length_of_8et; 
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/* 

ABSALGPH.C  -  Basic  Permutation  Multiplier  for  Abstract  Algetira 
Programning  System 

This  program  is  called  by  PROGRAM  A_TO_THE_N  and  A_TIMta_B  ’:o  perform 
all  the  necessary  multiplication  of  the  permutation  generated  by  the 
program. 

This  program  uses  Algorithm  A  (Multiply  permutations  in  cycle  form) 
from  FUNDAMENTAL  ALGORITHMS,  page  162,  by  Knuth.  1969. 

*/ 


void  disjoint{work_form) 
char  work_form[3n]  ; 

char  temp_formC3113 ,  start,  current; 

int  i,  j,  m,  already_used; 

int  n,  untagged,  length_Hork_form; 

temp_form[0]  =  '\0'; 
length_work_form  =  8trlen(uork_form); 
i  =  0;  j  =  0; 

temp_form[i]  =  Hork_form[jl ; 

++i;  ++j; 

temp_formti]  =  uork_form[j] ; 
start  =  work_formCj] ; 

♦+i;  ++j; 

current  =  Hork_formtj] ; 

while(start  1=  '\0') 

< 

i ((current  ==  Hork_formt0]  ||  current  ==  '\C') 

-■j; 

current  ■  work_formtj]; 

uhi le(current  l»  vork_form[01 ) 

"j; 

current  *  work_formCj]; 

) 

♦♦j; 

current  »  uork_formIjJ; 

) 

while(j  <=  length_Hork_form) 

< 
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uhi  leCcurrent  I*  work_forni[j]  ) 

{ 

if (work_forffl[jl  «  '\0') 
break; 

++j; 

> 

if{work_fortn[j]  >=  '\0') 

C 

++j; 

current  =  work_formtj] ; 

if(curre»)t  ==  work_forni[01  ||  current  ==  '\0') 

< 

--j; 

current  =  Mork_form(j]; 

whi lefcurrent  I*  work_form[0] ) 

{ 

"j; 

current  =  work_forintj] ; 

> 

current  *  work_form[j]; 

•> 

y 

++j; 

> 

else 

j  =  lengl:h_Hork_foriii  +  1; 

) 

if (current  1=  start) 

{ 

te(np_formti]  =  current; 

♦♦i;  j  =  -1; 

> 

else 

C 

j  =  0; 

untagged  »  work_1orraCj] ; 
whi leCuntagged  1=  0) 

{ 

already_used  =  0; 

m  =  0; 

whi  le(m  •:  i) 

I 

if(tenip_formIin3  1=  work_forintjJ ) 

++ni; 

else 

a(ready_used  «  1; 

m  =  i; 

) 
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if(already_used) 

< 


♦♦j; 


untagged  =  uork_fomtj] 

> 

else 

break; 

> 

if (untagged  »=  0) 

( 

teiH)_fomiCi]  »  '\0'; 
start  *  tenp_formtil; 

> 

else 


( 

teinp_fon«til  =  «ork_form[0]; 
++i; 

start  *  Hork_'formtJl ; 
tefflp_fonntil  »  start; 

♦+j;  ++1; 

current  =  work_formtj3; 

> 

) 

3 

Hork_formC0]  =  '\0'; 
strcpy(work_forni,  tefflp_forni); 

> 
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/* 

ABSALGSI.C  -  Singleton  Search  and  Deletion  Program  for  the  Abstract  Algebra 
Progranning  System 

This  function  searches  a  permutation,  which  is  in  the  internal  format, 
for  singleton  cycles.  When  a  singleton  cycle  is  encountered  it  is 
deleted.  This  function  is  called  after  every  permutation 
multipl ication. 

*/ 

extern  char  subsets [273] [203] ,  internal_form[155J; 
void  singleton_searchO 


char  tenip_form[155] ; 
i  nt  i ,  j ,  m,  n; 


tefflp_form[0]  =  '\0'; 
j  =  0;  i  =  0;  m  =  0; 
n  =  strlenC internal_form); 
whi le< j  <  n) 

I 

if(internal_form[j]  ==  internal_form[01 ) 

C 

i  *  j  +  2; 

if(internal_form;i]  =»  internal_form[0]  ||  internal_form[i]  =; 
( 

j  =  j  +  i; 

> 

else 

{ 

temp_forit![m]  =  internal_form[j] ; 

++m;  ++/; 

> 

) 

else 

{ 

temp_form[m]  =  internal_form[j); 

++m,-  ++j; 

> 

) 

tefflp_form[m]  =  internal_form[n] ; 
strcpyC interna l_form,  temp_form); 

> 


'\0') 
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/* 

ABSALGKE.C  -  Eleflient  Checker  for  the  Abstract  Algebra  Progranning  System 

This  function  searches  all  the  known  elements  that  have  been  produced 
to  determine  if  the  current  element  is  a  new  elesient.  If  it  is  then 
it  is  added  to  the  list  and  the  list  is  returned  to  the  calling 
function. 

•/ 

extern  char  subsets C273] [203] ,  internal_form[1551; 

void  check_elenients(elefflents,  order,  element_nLnber) 
char  elementst203] [155]; 
int  ‘order,  *element_niinber; 


< 

int  j,  length_of_ele(nent,  new,  already_have_it; 

j  =  1;  already_have_it  =  0;  *element_number  *  0; 
length_of_element  =  strlen(element6[j) ); 
uh i I e ( I eng  th_of _e I ement ) 
i 

new  =  strcnip(internal_form,  elements[j]  ); 
if (new) 

< 

♦♦j; 

length_of_el ement  =  strlen(elements[j] >; 

> 

else 

( 

**a I ready_have_i t; 

*element_nifnber  *  j; 
length_of_element  »  0; 

> 

> 

i f ( a  I ready_have_i t ) 
return; 

else 

( 

strcpy(elements(j] ,  [nternal_form); 
*element_number  =  j; 

•order  »  ‘order  ♦  1; 

} 
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